X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=c81476a1d118b405f07fe3976492d12a9ebdd9c5;hb=a2df77cbda43d5a24eeb8ac7db7452baae9f18aa;hp=27d4c43e833fbef0c7ef49086877140373961244;hpb=8e31b107ced5cae9230623a22d11ca37f391e74a;p=mTask.git

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 27d4c43..c81476a 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -282,6 +282,9 @@ instance userLed ByteCode where
 	ledOn  (BC l) = BC $ l >>| tell [BCLedOn]
 	ledOff (BC l) = BC $ l >>| tell [BCLedOff]
 
+instance retrn ByteCode where
+  retrn (BC l) = BC $ tell [BCReturn]
+
 instance zero BCState where
 	zero = {freshl=[1..], freshs=[1..], sdss=[]}