[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