acw/bang
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Change the syntax of not equals.

Browse Source
This commit is contained in:
Adam Wick
2011-02-03 21:30:27 -05:00
parent a64b8aa81c
commit 796210198c
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bsrc/Data/Number/Machine.bs
View File

@@ -5,12 +5,12 @@ type Word = prim%Word;
export instance Eq Int { export instance Eq Int {
(==)(x,y) = prim%inteq(x,y); (==)(x,y) = prim%inteq(x,y);
(/=)(x,y) = prim%intneq(x,y); (!=)(x,y) = prim%intneq(x,y);
} }
export instance Eq Word { export instance Eq Word {
(==)(x,y) = prim%wordeq(x,y); (==)(x,y) = prim%wordeq(x,y);
(/=)(x,y) = prim%wordneq(x,y); (!=)(x,y) = prim%wordneq(x,y);
} }
export instance Num Int { export instance Num Int {

8
bsrc/Data/Object.bs
View File

@@ -5,17 +5,17 @@ import Data.Bool;
export eq(x :: a, y :: a) :: Bool = prim%eq(x,y); export eq(x :: a, y :: a) :: Bool = prim%eq(x,y);
class Eq a { class Eq a {
(==)(x :: a, y :: a) :: Bool = not (x /= y); (==)(x :: a, y :: a) :: Bool = not (x != y);
(/=)(x :: a, y :: a) :: Bool = not (x == y); (!=)(x :: a, y :: a) :: Bool = not (x == y);
} }
instance Eq () { instance Eq () {
(==)(x,y) = True; (==)(x,y) = True;
(/=)(x,y) = False; (!=)(x,y) = False;
} }
instance Eq Bool { instance Eq Bool {
(/=)(x,y) = x ^ y; (!=)(x,y) = x ^ y;
} }
class SafelyConvertable a b { class SafelyConvertable a b {