[MLton-commit] r5708

[Matthew Fluet]

Wrong c-type assignment
----------------------------------------------------------------------

U   mlton/trunk/mlton/atoms/c-type.fun

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

Modified: mlton/trunk/mlton/atoms/c-type.fun
===================================================================
--- mlton/trunk/mlton/atoms/c-type.fun	2007-07-01 22:31:15 UTC (rev 5707)
+++ mlton/trunk/mlton/atoms/c-type.fun	2007-07-02 00:23:24 UTC (rev 5708)
@@ -141,7 +141,7 @@
                     {signed = true}))
 val csize =
    Promise.lazy
-   (fn () => word' (Control.Target.Size.cint (),
+   (fn () => word' (Control.Target.Size.csize (),
                     {signed = false}))
 
 val seqIndex =