[MLton-commit] r4319

[Matthew Fluet]

Expand _symbol type annotation
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml	2006-01-28 17:00:37 UTC (rev 4318)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gen/gen-basis-ffi.sml	2006-01-28 17:01:23 UTC (rev 4319)
@@ -230,9 +230,11 @@
                 Name.last name,
                 "Set) = _symbol \"",
                 Name.toC name,
-                "\": (",
+                "\": (unit -> (",
                 Type.toML ty,
-                ") GetSet.t;"]
+                ")) * ((",
+                Type.toML ty, 
+                ") -> unit);"]
 
       fun parseConst (s, name) =
          let