diff options
Diffstat (limited to 'source/lux/data/bool.lux')
-rw-r--r-- | source/lux/data/bool.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/lux/data/bool.lux b/source/lux/data/bool.lux index 8f7a3bd13..92f5486ef 100644 --- a/source/lux/data/bool.lux +++ b/source/lux/data/bool.lux @@ -14,19 +14,19 @@ ## [Structures] (defstruct #export Bool/Eq (E;Eq Bool) - (def (= x y) + (def (E;= x y) (if x y (not y)))) (defstruct #export Bool/Show (S;Show Bool) - (def (show x) + (def (S;show x) (if x "true" "false"))) (do-template [<name> <unit> <op>] [(defstruct #export <name> (m;Monoid Bool) - (def unit <unit>) - (def (++ x y) + (def m;unit <unit>) + (def (m;++ x y) (<op> x y)))] [ Or/Monoid false or] |