revert back to old itasks, add sds support in bytecode

[mTask.git] / mTaskCode.icl

diff --git a/mTaskCode.icl b/mTaskCode.icl
index 6360b5a..c405cea 100644 (file)
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -74,6 +74,7 @@ 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 =