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 {
(==)(x,y) = prim%inteq(x,y);
(/=)(x,y) = prim%intneq(x,y);
(!=)(x,y) = prim%intneq(x,y);
}
export instance Eq Word {
(==)(x,y) = prim%wordeq(x,y);
(/=)(x,y) = prim%wordneq(x,y);
(!=)(x,y) = prim%wordneq(x,y);
}
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);
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 () {
(==)(x,y) = True;
(/=)(x,y) = False;
(!=)(x,y) = False;
}
instance Eq Bool {
(/=)(x,y) = x ^ y;
(!=)(x,y) = x ^ y;
}
class SafelyConvertable a b {