X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=fff57e430884b23d727fbebfc3994d1b5ad80bbe;hb=73d6866bdbab8f393b53c9951b05b62005a5423a;hp=275e8cc4a8d68a92b6b3ee3ac6a5425af191b3eb;hpb=0089cf72c2a5ff347afda4fd9a9a29c3e2ea6896;p=mTask.git

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 275e8cc..fff57e4 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -91,11 +91,11 @@ BCIfStmt b t e = b <+-> [BCJmpF $ length <$> t + 1] <++> t
 instance noOp ByteCode where noOp = BC []
 
 instance sds ByteCode where
-	sds f = {main = 
+	sds f = undef/*{main = 
 			let var = 42
 			    (v In body) = f var
 			in unMain body
-		}
+		}*/
 	con f = undef
 
 instance serial ByteCode where