X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=mTaskCode.icl;h=3cec06586a409099bdf11c658690c1eb0a5334f3;hb=6d956995e169ae8fd44d62e26e35d499a9660225;hp=7ac8aa6ee1bfdb21c53fe4e28986256128f2231c;hpb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;p=mTask.git

diff --git a/mTaskCode.icl b/mTaskCode.icl
index 7ac8aa6..3cec065 100644
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -2,8 +2,9 @@ implementation module mTaskCode
 
 import Generics.gdynamic
 import Generics.gCons
+import StdEnv
 
-import iTasks
+//import iTasks
 import GenEq, StdMisc, StdArray
 import mTask
 
@@ -77,7 +78,6 @@ instance sds Code where
     in setCode Var +.+ c (type2string v + " " + name + " = " + toCode v + 
        ";\n") +.+ setCode Setup +.+ unMain body}
   con f = defCode f
-  pub _ = undef
 
 defCode :: ((Code t p) -> In t (Main (Code u q))) -> Main (Code u r) | type t
 defCode f =