robustify task and sds initialization
[mTask.git] / mTaskInterpret.dcl
index 0fb9efc..1baf878 100644 (file)
@@ -83,8 +83,8 @@ instance boolExpr ByteCode
 instance analogIO ByteCode
 instance digitalIO ByteCode
 instance If ByteCode Stmt Stmt Stmt
+instance If ByteCode e Stmt Stmt
 instance If ByteCode Stmt e Stmt
-instance If ByteCode Stmt Stmt e
 instance If ByteCode x y Expr
 instance IF ByteCode
 instance noOp ByteCode
@@ -94,7 +94,7 @@ instance assign ByteCode
 instance seq ByteCode
 instance serial ByteCode
 
-pub :: (ByteCode a b) -> ByteCode a b
+//pub :: (ByteCode a b) -> ByteCode a b
 
 toMessages :: Int (String, BCState) -> [MTaskMessage]