[MLton-commit] r4729

[Vesa Karvonen]

Renamed is0 to isZero as it is probably more customary.

----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/extended-basis/unstable/int-inf.sig
U   mltonlib/trunk/com/ssh/extended-basis/unstable/integer.sig
U   mltonlib/trunk/com/ssh/extended-basis/unstable/mk-integer-ext.fun
U   mltonlib/trunk/com/ssh/extended-basis/unstable/mk-word-ext.fun
U   mltonlib/trunk/com/ssh/extended-basis/unstable/word.sig

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/int-inf.sig
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/int-inf.sig	2006-10-19 07:08:43 UTC (rev 4728)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/int-inf.sig	2006-10-19 09:31:43 UTC (rev 4729)
@@ -14,7 +14,7 @@
       val int : (int, Int.int) iso
       val large : (int, LargeInt.int) iso
       val string : (int, string) emb
-      val is0 : int -> bool
+      val isZero : int -> bool
       val isEven : int -> bool
       val isOdd : int -> bool
       val bounds : (int * int) option

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/integer.sig
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/integer.sig	2006-10-19 07:08:43 UTC (rev 4728)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/integer.sig	2006-10-19 09:31:43 UTC (rev 4729)
@@ -14,7 +14,7 @@
       val int : (int, Int.int) iso
       val large : (int, LargeInt.int) iso
       val string : (int, string) emb
-      val is0 : int -> bool
+      val isZero : int -> bool
       val isEven : int -> bool
       val isOdd : int -> bool
       val bounds : (int * int) option

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/mk-integer-ext.fun
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/mk-integer-ext.fun	2006-10-19 07:08:43 UTC (rev 4728)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/mk-integer-ext.fun	2006-10-19 09:31:43 UTC (rev 4729)
@@ -14,8 +14,8 @@
       val int = (toInt, fromInt)
       val large = (toLarge, fromLarge)
       val string = (toString, fromString)
-      fun is0 i = fromInt 0 = i
-      fun isEven i = is0 (rem (i, fromInt 2))
+      fun isZero i = fromInt 0 = i
+      fun isEven i = isZero (rem (i, fromInt 2))
       val isOdd = not o isEven
       val bounds = case (minInt, maxInt) of
                       (NONE, NONE) => NONE

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/mk-word-ext.fun
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/mk-word-ext.fun	2006-10-19 07:08:43 UTC (rev 4728)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/mk-word-ext.fun	2006-10-19 09:31:43 UTC (rev 4729)
@@ -21,8 +21,8 @@
       val largeX = (toLargeX, fromLarge)
       val word = (toWord, fromWord)
       val string = (toString, fromString)
-      fun is0 w = fromInt 0 = w
-      fun isEven w = is0 (andb (fromInt 1, w))
+      fun isZero w = fromInt 0 = w
+      fun isEven w = isZero (andb (fromInt 1, w))
       val isOdd = not o isEven
       val bounds as (minWord, maxWord) = (fromInt 0, fromInt~1)
    end

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/word.sig
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/word.sig	2006-10-19 07:08:43 UTC (rev 4728)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/word.sig	2006-10-19 09:31:43 UTC (rev 4729)
@@ -21,7 +21,7 @@
       val largeX : (word, LargeWord.word) iso
       val word : (word, Word.word) iso
       val string : (word, string) emb
-      val is0 : word -> bool
+      val isZero : word -> bool
       val isEven : word -> bool
       val isOdd : word -> bool
       val minWord : word