Quite a few more bang files for testing.

This commit is contained in:
2011-02-03 20:26:09 -05:00
parent bc435d83f8
commit 17ca2f7899
6 changed files with 396 additions and 20 deletions

11
bsrc/Data/Bool.bs Normal file
View File

@@ -0,0 +1,11 @@
module Data.Bool
datatype Bool = True | False;
export (&)(x :: Bool, y :: Bool) :: Bool = prim%and;
export (|)(x :: Bool, y :: Bool) :: Bool = prim%or;
export (^)(x :: Bool, y :: Bool) :: Bool = prim%xor;
export (not)(x :: Bool) :: Bool = prim%not;
export otherwise :: Bool = True;