Improve definitions of functions 'and' and 'or'

aelred · Apr 17, 2015 · beb2755 · beb2755
1 parent d894dc1
commit beb2755
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/modules/lib.star b/modules/lib.star
@@ -5,8 +5,8 @@ let
 
 # basic logic
 not = x -> if x then False else True,
-or = x y -> if x then True else if y then True else False,
-and = x y -> if x then (if y then True else False) else False,
+or = x y -> if x then True else y,
+and = x y -> if x then y else False,
 any = foldr (or) False,
 all = foldr (and) True,