[MLton-commit] r5823

Vesa Karvonen vesak at mlton.org
Sun Aug 5 05:15:50 PDT 2007


Remove traces of word16.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/detail/close-generic.fun
U   mltonlib/trunk/com/ssh/generic/unstable/detail/root-generic.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/pretty.sml
U   mltonlib/trunk/com/ssh/generic/unstable/public/closed-generic.sig
U   mltonlib/trunk/com/ssh/generic/unstable/public/layer-dep-generic-fun.sig
U   mltonlib/trunk/com/ssh/generic/unstable/public/open-generic.sig

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/close-generic.fun
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/close-generic.fun	2007-08-05 11:09:23 UTC (rev 5822)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/close-generic.fun	2007-08-05 12:15:49 UTC (rev 5823)
@@ -53,7 +53,6 @@
    val largeReal = Arg.largeReal ()
    val largeWord = Arg.largeWord ()
    val word8 = Arg.word8 ()
-(* val word16 = Arg.word16 () (* Word16 not provided by SML/NJ *) *)
    val word32 = Arg.word32 ()
    val word64 = Arg.word64 ()
    fun list ? = Arg.list ignore ?

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/root-generic.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/root-generic.sml	2007-08-05 11:09:23 UTC (rev 5822)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/root-generic.sml	2007-08-05 12:15:49 UTC (rev 5823)
@@ -47,7 +47,6 @@
    val largeReal = id
    val largeWord = id
    val word8 = id
-(* val word16 = id (* Word16 not provided by SML/NJ *) *)
    val word32 = id
    val word64 = id
    val list = id

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/pretty.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/pretty.sml	2007-08-05 11:09:23 UTC (rev 5822)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pretty.sml	2007-08-05 12:15:49 UTC (rev 5823)
@@ -191,7 +191,6 @@
       val largeWord = mkWord LargeWord.toString
 
       val word8  = mkWord Word8.toString
-   (* val word16 = mkWord Word16.toString (* Word16 not provided by SML/NJ *) *)
       val word32 = mkWord Word32.toString
       val word64 = mkWord Word64.toString)
 

Modified: mltonlib/trunk/com/ssh/generic/unstable/public/closed-generic.sig
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/public/closed-generic.sig	2007-08-05 11:09:23 UTC (rev 5822)
+++ mltonlib/trunk/com/ssh/generic/unstable/public/closed-generic.sig	2007-08-05 12:15:49 UTC (rev 5823)
@@ -108,7 +108,6 @@
    (** == Support for Binary Data == *)
 
    val word8  : Word8.t  Rep.t
-(* val word16 : Word16.t Rep.t (* Word16 not provided by SML/NJ *) *)
    val word32 : Word32.t Rep.t
    val word64 : Word64.t Rep.t
 

Modified: mltonlib/trunk/com/ssh/generic/unstable/public/layer-dep-generic-fun.sig
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/public/layer-dep-generic-fun.sig	2007-08-05 11:09:23 UTC (rev 5822)
+++ mltonlib/trunk/com/ssh/generic/unstable/public/layer-dep-generic-fun.sig	2007-08-05 12:15:49 UTC (rev 5823)
@@ -35,7 +35,6 @@
    val largeReal : LargeReal.t Result.Closed.t
    val largeWord : LargeWord.t Result.Closed.t
    val word8 : Word8.t  Result.Closed.t
-(* val word16 : Word16.t Result.Closed.t (* Word16 not provided by SML/NJ *) *)
    val word32 : Word32.t Result.Closed.t
    val word64 : Word64.t Result.Closed.t
    val list : ('a, 'x) Result.t -> 'a List.t Result.Closed.t

Modified: mltonlib/trunk/com/ssh/generic/unstable/public/open-generic.sig
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/public/open-generic.sig	2007-08-05 11:09:23 UTC (rev 5822)
+++ mltonlib/trunk/com/ssh/generic/unstable/public/open-generic.sig	2007-08-05 12:15:49 UTC (rev 5823)
@@ -35,7 +35,6 @@
    val largeReal : 'x -> (LargeReal.t, 'x) Rep.t
    val largeWord : 'x -> (LargeWord.t, 'x) Rep.t
    val word8 : 'x -> (Word8.t, 'x) Rep.t
-(* val word16 : 'x -> (Word16.t, 'x) Rep.t (* Word16 not provided by SML/NJ *) *)
    val word32 : 'x -> (Word32.t, 'x) Rep.t
    val word64 : 'x -> (Word64.t, 'x) Rep.t
    val list : ('x -> 'y) -> ('a, 'x) Rep.t -> ('a List.t, 'y) Rep.t




More information about the MLton-commit mailing list