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

diff --git a/mTaskCode.icl b/mTaskCode.icl
index cca5a67..3cec065 100644
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -78,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 =