X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.icl;h=d28a4fe5fb221ec5c8c0a490e4d4e88456cc45c1;hb=8449be73c124cdccd37500c0d67d9404b94fc9c8;hp=ae7ddfb5122d2646aa497a449ec6c16c0f4300e9;hpb=93cabbcd5d18b7b45d6f43a6ff39f94cfcb95522;p=mTask.git

diff --git a/mTaskSimulation.icl b/mTaskSimulation.icl
index ae7ddfb..d28a4fe 100644
--- a/mTaskSimulation.icl
+++ b/mTaskSimulation.icl
@@ -74,7 +74,7 @@ defEval2 v f =
 instance sds Eval where
   sds f = defEval f
   con f = defEval f
-//  pub _ = undef
+  pub _ = undef
 
 defEval :: ((Eval t p)->In t (Main (Eval u q))) -> (Main (Eval u q)) | dyn t
 defEval f =