added sds operators, timing and task deletion

[mTask.git] / mTaskInterpret.icl

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 275e8cc..fff57e4 100644 (file)
--- 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