X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=29e1fb95b6e98a089fedd10317b105aa9894383b;hb=a408afc0974b9a122d34f42afe177b08668c075c;hp=578d3351a3f97cb17883320bb87bc413360cd9f8;hpb=8e31b107ced5cae9230623a22d11ca37f391e74a;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 578d335..29e1fb9 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -67,6 +67,7 @@ decode :: String -> MTaskMSGRecv
 	//Binary Bool ops
 	| BCAnd
 	| BCOr
+	//Binary ops
 	| BCEq
 	| BCNeq
 	| BCLes
@@ -91,7 +92,8 @@ decode :: String -> MTaskMSGRecv
 	| BCAnalogWrite Pin
 	| BCDigitalRead Pin
 	| BCDigitalWrite Pin
-	| BCTest AnalogPin
+	//Return
+	| BCReturn
 
 derive gPrint BCValue, MTaskDeviceSpec
 derive consIndex BCValue
@@ -143,6 +145,7 @@ instance If ByteCode Stmt e Stmt
 instance If ByteCode x y Stmt
 instance IF ByteCode
 instance noOp ByteCode
+instance retrn ByteCode
 
 instance sds ByteCode
 instance assign ByteCode