X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=f4762326ba61e558b1700e266f5d6113a2a45d68;hb=5f4c4b61ea1e4062e90715af9e1027da6d1c7a66;hp=24dc6a64d603a29ce17e16773d171e21aa17c075;hpb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 24dc6a6..f476232 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -63,8 +63,8 @@ decode :: String -> MTaskMSGRecv
 	| BCJmpT Int
 	| BCJmpF Int
 	//UserLED
-	| BCLedOn UserLED
-	| BCLedOff UserLED
+	| BCLedOn
+	| BCLedOff
 	//Serial
 	| BCSerialAvail
 	| BCSerialPrint
@@ -78,7 +78,6 @@ decode :: String -> MTaskMSGRecv
 	| BCDigitalWrite Pin
 	| BCTest AnalogPin
 
-derive gPrint BC
 derive class gCons BC
 
 :: ByteCode a p = BC (RWS () [BC] BCState ())