[MLton-commit] r6170

[Vesa Karvonen]

Workaround for SML/NJ (type vars not generalized...).

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

U   mltonlib/trunk/com/ssh/async/unstable/example/smlbot/smlbot.sml

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

Modified: mltonlib/trunk/com/ssh/async/unstable/example/smlbot/smlbot.sml
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/example/smlbot/smlbot.sml	2007-11-14 14:51:50 UTC (rev 6169)
+++ mltonlib/trunk/com/ssh/async/unstable/example/smlbot/smlbot.sml	2007-11-14 15:36:30 UTC (rev 6170)
@@ -31,8 +31,8 @@
        ; IVar.read ch
       end
    in
-      val sockEvt = mk Socket.ioDesc
-      val iodEvt = mk id
+      fun sockEvt ? = mk Socket.ioDesc ?
+      fun iodEvt ? = mk id ?
    end
 
    val print = ignore