[MLton-commit] r6661

[Vesa Karvonen]

Modules with type representation constructors for Poly/ML.  Also test
(just compile) modules with type rep ctors with Poly/ML and MLton.

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

U   mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.mlb
U   mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.use
A   mltonlib/trunk/com/ssh/generic/unstable/with/types-polyml.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.mlb
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.mlb	2008-06-29 09:18:54 UTC (rev 6660)
+++ mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.mlb	2008-06-29 11:15:49 UTC (rev 6661)
@@ -5,6 +5,7 @@
  *)
 
 local
+   $(MLTON_LIB)/com/ssh/extended-basis/unstable/basis.mlb
    $(MLTON_LIB)/com/ssh/random/unstable/lib.mlb
 
    ../../lib.mlb
@@ -29,4 +30,6 @@
    ../../with/shrink.sml
    ../../with/close-pretty-with-extra.sml
    ../../with/reg-basis-exns.sml
+   ../../with/types.sml
+   ../../with/types-$(SML_COMPILER).sml
 end

Modified: mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.use
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.use	2008-06-29 09:18:54 UTC (rev 6660)
+++ mltonlib/trunk/com/ssh/generic/unstable/test/app/generic.use	2008-06-29 11:15:49 UTC (rev 6661)
@@ -25,4 +25,6 @@
      "../../with/ord.sml",
      "../../with/shrink.sml",
      "../../with/close-pretty-with-extra.sml",
-     "../../with/reg-basis-exns.sml"] ;
+     "../../with/reg-basis-exns.sml",
+     "../../with/types.sml",
+     "../../with/types-${SML_COMPILER}.sml"] ;

Added: mltonlib/trunk/com/ssh/generic/unstable/with/types-polyml.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/with/types-polyml.sml	2008-06-29 09:18:54 UTC (rev 6660)
+++ mltonlib/trunk/com/ssh/generic/unstable/with/types-polyml.sml	2008-06-29 11:15:49 UTC (rev 6661)
@@ -0,0 +1,11 @@
+(* Copyright (C) 2008 Vesa Karvonen
+ *
+ * This code is released under the MLton license, a BSD-style license.
+ * See the LICENSE file or http://mlton.org/License for details.
+ *)
+
+local
+   open Generic
+in
+   structure IntInf = struct open IntInf val t = largeInt end
+end


Property changes on: mltonlib/trunk/com/ssh/generic/unstable/with/types-polyml.sml
___________________________________________________________________
Name: svn:eol-style
   + native