X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=407e93093c79dae97a63190aedbf8c4091997803;hb=5ffe54378cb4b91ee2a5717d57c1bf4ba4ca563e;hp=18c78c87bba4bd0aeec190040e75e1eedca38f95;hpb=5395787218cef80cc3c165ec24af2f367a3d0d16;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index 18c78c8..407e930 100644
--- a/miTask.icl
+++ b/miTask.icl
@@ -32,7 +32,7 @@ Start world = startEngine mTaskTask world
 
 bc :: Main (ByteCode () Stmt)
 bc = sds \x=1 In sds \pinnetje=1 In {main =
-		IF (digitalRead D3 ==. lit True) (
+		IF (digitalRead D3) (
 			x =. x +. lit 1 :.
 			pub x
 		) (