[MLton-commit] r6862

[Wesley Terpstra]

scope the open call
----------------------------------------------------------------------

U   mlton/trunk/regression/library/check.sml
U   mlton/trunk/regression/library/lib2.sml
U   mlton/trunk/regression/library/lib3.sml
U   mlton/trunk/regression/library/lib4.sml
U   mlton/trunk/regression/library/lib5.sml

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

Modified: mlton/trunk/regression/library/check.sml
===================================================================
--- mlton/trunk/regression/library/check.sml	2008-09-18 02:55:51 UTC (rev 6861)
+++ mlton/trunk/regression/library/check.sml	2008-09-18 03:13:09 UTC (rev 6862)
@@ -1,5 +1,5 @@
 (* Prepare lib5 *)
-val () = _import "lib5_open" : unit -> unit; ()
+val () = _import "lib5_open" public : unit -> unit; ()
 
 type p = MLton.Pointer.t
 

Modified: mlton/trunk/regression/library/lib2.sml
===================================================================
--- mlton/trunk/regression/library/lib2.sml	2008-09-18 02:55:51 UTC (rev 6861)
+++ mlton/trunk/regression/library/lib2.sml	2008-09-18 03:13:09 UTC (rev 6862)
@@ -1,5 +1,5 @@
 (* Prepare lib1 *)
-val () = _import "lib1_open" : unit -> unit; ()
+val () = _import "lib1_open" public : unit -> unit; ()
 
 type p = MLton.Pointer.t
 

Modified: mlton/trunk/regression/library/lib3.sml
===================================================================
--- mlton/trunk/regression/library/lib3.sml	2008-09-18 02:55:51 UTC (rev 6861)
+++ mlton/trunk/regression/library/lib3.sml	2008-09-18 03:13:09 UTC (rev 6862)
@@ -1,5 +1,5 @@
 (* Prepare lib2 *)
-val () = _import "lib2_open" : unit -> unit; ()
+val () = _import "lib2_open" external : unit -> unit; ()
 
 type p = MLton.Pointer.t
 

Modified: mlton/trunk/regression/library/lib4.sml
===================================================================
--- mlton/trunk/regression/library/lib4.sml	2008-09-18 02:55:51 UTC (rev 6861)
+++ mlton/trunk/regression/library/lib4.sml	2008-09-18 03:13:09 UTC (rev 6862)
@@ -1,5 +1,5 @@
 (* Prepare lib3 *)
-val () = _import "lib3_open" : unit -> unit; ()
+val () = _import "lib3_open" public : unit -> unit; ()
 
 type p = MLton.Pointer.t
 

Modified: mlton/trunk/regression/library/lib5.sml
===================================================================
--- mlton/trunk/regression/library/lib5.sml	2008-09-18 02:55:51 UTC (rev 6861)
+++ mlton/trunk/regression/library/lib5.sml	2008-09-18 03:13:09 UTC (rev 6862)
@@ -1,5 +1,5 @@
 (* Prepare lib4 *)
-val () = _import "lib4_open" : unit -> unit; ()
+val () = _import "lib4_open" external : unit -> unit; ()
 
 type p = MLton.Pointer.t