X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskCode.icl;h=410e05e58aa1211a5e268077ade06bdb0cc2503a;hb=68e65ffa79b10fc6762a0f7989a268126fc20c1b;hp=c405ceab1a8f3cfe507f97347dff3559d311148d;hpb=93cabbcd5d18b7b45d6f43a6ff39f94cfcb95522;p=mTask.git

diff --git a/mTaskCode.icl b/mTaskCode.icl
index c405cea..410e05e 100644
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -74,7 +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
+  pub _ = undef
 
 defCode :: ((Code t p) -> In t (Main (Code u q))) -> Main (Code u r) | type t
 defCode f =