X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=1baf8781afc2ced13425d2d92c1623321d8ad113;hb=1383ec4c1733cc6f07fe68e0619446d60fe5277e;hp=0fb9efc9885580b0b8acadf0e35db397f730e881;hpb=7edf1780ae3b91d9136db2d94b25e88d64896645;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 0fb9efc..1baf878 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -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]