[MLton-commit] r5785

[Matthew Fluet]

Wrong type for TopLevel_get{Handler,Suffix}
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/atoms/hash-type.fun
===================================================================
--- mlton/trunk/mlton/atoms/hash-type.fun	2007-07-20 21:36:00 UTC (rev 5784)
+++ mlton/trunk/mlton/atoms/hash-type.fun	2007-07-21 23:43:59 UTC (rev 5785)
@@ -344,8 +344,8 @@
        | Thread_copyCurrent => done ([], unit)
        | Thread_returnToC => done ([], unit)
        | Thread_switchTo => done ([thread], unit)
-       | TopLevel_getHandler => done ([unit], arrow (exn, unit))
-       | TopLevel_getSuffix => done ([unit], arrow (unit, unit))
+       | TopLevel_getHandler => done ([], arrow (exn, unit))
+       | TopLevel_getSuffix => done ([], arrow (unit, unit))
        | TopLevel_setHandler => done ([arrow (exn, unit)], unit)
        | TopLevel_setSuffix => done ([arrow (unit, unit)], unit)
        | Vector_length => oneTarg (fn t => ([vector t], seqIndex))