[MLton-commit] r7063

[Matthew Fluet]

Unused bindings.
----------------------------------------------------------------------

U   mlton/trunk/lib/mlton/basic/fold.fun
U   mlton/trunk/lib/mlton/basic/trace.sml
U   mlton/trunk/lib/mlton-stubs/mlton.sml

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

Modified: mlton/trunk/lib/mlton/basic/fold.fun
===================================================================
--- mlton/trunk/lib/mlton/basic/fold.fun	2009-04-08 12:32:41 UTC (rev 7062)
+++ mlton/trunk/lib/mlton/basic/fold.fun	2009-04-08 12:32:43 UTC (rev 7063)
@@ -9,7 +9,6 @@
 functor Fold (S: FOLD_STRUCTS): FOLD = 
 struct
 
-structure Int = Pervasive.Int
 open S
 
 fun foldi (l: 'a t, b, f) =

Modified: mlton/trunk/lib/mlton/basic/trace.sml
===================================================================
--- mlton/trunk/lib/mlton/basic/trace.sml	2009-04-08 12:32:41 UTC (rev 7062)
+++ mlton/trunk/lib/mlton/basic/trace.sml	2009-04-08 12:32:43 UTC (rev 7063)
@@ -57,7 +57,6 @@
 struct
 
 structure IC = IntermediateComputation
-structure Int = Pervasive.Int
 structure Timer = Time
 
 val immediateDefault = ref false

Modified: mlton/trunk/lib/mlton-stubs/mlton.sml
===================================================================
--- mlton/trunk/lib/mlton-stubs/mlton.sml	2009-04-08 12:32:41 UTC (rev 7062)
+++ mlton/trunk/lib/mlton-stubs/mlton.sml	2009-04-08 12:32:43 UTC (rev 7063)
@@ -34,7 +34,6 @@
       type t = word
 
       val wordSize = Word.fromInt wordSize
-      val one = fromInt 1
 
       val bswap = fn _ => raise Fail "Word.bswap"
       fun rol (w: word, w': Word.word): word =