simplify expression

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index 18c78c8..407e930 100644 (file)
--- 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
                ) (