X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=789c58a26aa8b92ced297997f01e2d9504f3a8d9;hb=0d7dc6966d2f428cd7543708e220aa4315d64978;hp=81bf135e2c63d8d8545146deb79b456f1c00497d;hpb=db7588d3c42ad9e1b5af5a6f3d08c82a8b0ccf0d;p=mTask.git diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl index 81bf135..789c58a 100644 --- a/mTaskInterpret.icl +++ b/mTaskInterpret.icl @@ -161,8 +161,8 @@ toReadableByteCode x // bc = (lit 36 +. lit 42) +. lit 44 Start :: String -//Start = toReadableByteCode $ unMain bc -Start = toRealByteCode $ unMain bc +Start = toReadableByteCode $ unMain bc +//Start = toRealByteCode $ unMain bc where bc :: Main (ByteCode Int Expr) bc = sds \x=41 In