[MLton-commit] r7404

Matthew Fluet fluet at mlton.org
Fri Jan 22 08:48:10 PST 2010


Suppress unused variable warnings.
----------------------------------------------------------------------

U   mlton/trunk/basis-library/config/choose-char.sml
U   mlton/trunk/basis-library/config/choose-int.sml
U   mlton/trunk/basis-library/config/choose-real.sml
U   mlton/trunk/basis-library/config/choose-word.sml

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

Modified: mlton/trunk/basis-library/config/choose-char.sml
===================================================================
--- mlton/trunk/basis-library/config/choose-char.sml	2010-01-22 16:48:06 UTC (rev 7403)
+++ mlton/trunk/basis-library/config/choose-char.sml	2010-01-22 16:48:08 UTC (rev 7404)
@@ -1,4 +1,5 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2010 Matthew Fluet.
+ * Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  *
  * MLton is released under a BSD-style license.
@@ -15,10 +16,10 @@
 
 functor ChooseCharN_Char8 (A : CHOOSE_CHARN_ARG) : 
    sig val f : Char8.char A.t end = 
-   struct val f = A.fChar8 end
+   struct val f = A.fChar8 val _ = A.fChar16 val _ = A.fChar32 end
 functor ChooseCharN_Char16 (A : CHOOSE_CHARN_ARG) : 
    sig val f : Char16.char A.t end = 
-   struct val f = A.fChar16 end
+   struct val _ = A.fChar8 val f = A.fChar16 val _ = A.fChar32 end
 functor ChooseCharN_Char32 (A : CHOOSE_CHARN_ARG) : 
    sig val f : Char32.char A.t end = 
-   struct val f = A.fChar32 end
+   struct val _ = A.fChar8 val _ = A.fChar16 val f = A.fChar32 end

Modified: mlton/trunk/basis-library/config/choose-int.sml
===================================================================
--- mlton/trunk/basis-library/config/choose-int.sml	2010-01-22 16:48:06 UTC (rev 7403)
+++ mlton/trunk/basis-library/config/choose-int.sml	2010-01-22 16:48:08 UTC (rev 7404)
@@ -1,4 +1,5 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2010 Matthew Fluet.
+* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  *
  * MLton is released under a BSD-style license.
@@ -16,16 +17,16 @@
 
 functor ChooseIntN_Int8 (A : CHOOSE_INTN_ARG) : 
    sig val f : Int8.int A.t end = 
-   struct val f = A.fInt8 end
+   struct val f = A.fInt8 val _ = A.fInt16 val _ = A.fInt32 val _ = A.fInt64 end
 functor ChooseIntN_Int16 (A : CHOOSE_INTN_ARG) : 
    sig val f : Int16.int A.t end = 
-   struct val f = A.fInt16 end
+   struct val _ = A.fInt8 val f = A.fInt16 val _ = A.fInt32 val _ = A.fInt64 end
 functor ChooseIntN_Int32 (A : CHOOSE_INTN_ARG) : 
    sig val f : Int32.int A.t end = 
-   struct val f = A.fInt32 end
+   struct val _ = A.fInt8 val _ = A.fInt16 val f = A.fInt32 val _ = A.fInt64 end
 functor ChooseIntN_Int64 (A : CHOOSE_INTN_ARG) : 
    sig val f : Int64.int A.t end = 
-   struct val f = A.fInt64 end
+   struct val _ = A.fInt8 val _ = A.fInt16 val _ = A.fInt32 val f = A.fInt64 end
 
 signature CHOOSE_INT_ARG =
    sig
@@ -39,16 +40,16 @@
 
 functor ChooseInt_Int8 (A : CHOOSE_INT_ARG) : 
    sig val f : Int8.int A.t end = 
-   struct val f = A.fInt8 end
+   struct val f = A.fInt8 val _ = A.fInt16 val _ = A.fInt32 val _ = A.fInt64 val _ = A.fIntInf end
 functor ChooseInt_Int16 (A : CHOOSE_INT_ARG) : 
    sig val f : Int16.int A.t end = 
-   struct val f = A.fInt16 end
+   struct val _ = A.fInt8 val f = A.fInt16 val _ = A.fInt32 val _ = A.fInt64 val _ = A.fIntInf end
 functor ChooseInt_Int32 (A : CHOOSE_INT_ARG) : 
    sig val f : Int32.int A.t end = 
-   struct val f = A.fInt32 end
+   struct val _ = A.fInt8 val _ = A.fInt16 val f = A.fInt32 val _ = A.fInt64 val _ = A.fIntInf end
 functor ChooseInt_Int64 (A : CHOOSE_INT_ARG) : 
    sig val f : Int64.int A.t end = 
-   struct val f = A.fInt64 end
+   struct val _ = A.fInt8 val _ = A.fInt16 val _ = A.fInt32 val f = A.fInt64 val _ = A.fIntInf end
 functor ChooseInt_IntInf (A : CHOOSE_INT_ARG) : 
    sig val f : IntInf.int A.t end = 
-   struct val f = A.fIntInf end
+   struct val _ = A.fInt8 val _ = A.fInt16 val _ = A.fInt32 val _ = A.fInt64 val f = A.fIntInf end

Modified: mlton/trunk/basis-library/config/choose-real.sml
===================================================================
--- mlton/trunk/basis-library/config/choose-real.sml	2010-01-22 16:48:06 UTC (rev 7403)
+++ mlton/trunk/basis-library/config/choose-real.sml	2010-01-22 16:48:08 UTC (rev 7404)
@@ -1,4 +1,5 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2010 Matthew Fluet.
+ * Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  *
  * MLton is released under a BSD-style license.
@@ -14,7 +15,7 @@
 
 functor ChooseRealN_Real32 (A : CHOOSE_REALN_ARG) : 
    sig val f : Real32.real A.t end = 
-   struct val f = A.fReal32 end
+   struct val f = A.fReal32 val _ = A.fReal64 end
 functor ChooseRealN_Real64 (A : CHOOSE_REALN_ARG) : 
    sig val f : Real64.real A.t end = 
-   struct val f = A.fReal64 end
+   struct val _ = A.fReal32 val f = A.fReal64 end

Modified: mlton/trunk/basis-library/config/choose-word.sml
===================================================================
--- mlton/trunk/basis-library/config/choose-word.sml	2010-01-22 16:48:06 UTC (rev 7403)
+++ mlton/trunk/basis-library/config/choose-word.sml	2010-01-22 16:48:08 UTC (rev 7404)
@@ -1,4 +1,5 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2010 Matthew Fluet.
+ * Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  *
  * MLton is released under a BSD-style license.
@@ -16,13 +17,13 @@
 
 functor ChooseWordN_Word8 (A : CHOOSE_WORDN_ARG) : 
    sig val f : Word8.word A.t end = 
-   struct val f = A.fWord8 end
+   struct val f = A.fWord8 val _ = A.fWord16 val _ = A.fWord32 val _ = A.fWord64 end
 functor ChooseWordN_Word16 (A : CHOOSE_WORDN_ARG) : 
    sig val f : Word16.word A.t end = 
-   struct val f = A.fWord16 end
+   struct val _ = A.fWord8 val f = A.fWord16 val _ = A.fWord32 val _ = A.fWord64 end
 functor ChooseWordN_Word32 (A : CHOOSE_WORDN_ARG) : 
    sig val f : Word32.word A.t end = 
-   struct val f = A.fWord32 end
+   struct val _ = A.fWord8 val _ = A.fWord16 val f = A.fWord32 val _ = A.fWord64 end
 functor ChooseWordN_Word64 (A : CHOOSE_WORDN_ARG) : 
    sig val f : Word64.word A.t end = 
-   struct val f = A.fWord64 end
+   struct val _ = A.fWord8 val _ = A.fWord16 val _ = A.fWord32 val f = A.fWord64 end




More information about the MLton-commit mailing list