[MLton-commit] r6668

[Vesa Karvonen]

Updated comment.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/public/extra/generic-extra.sig

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/public/extra/generic-extra.sig
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/public/extra/generic-extra.sig	2008-07-05 15:04:26 UTC (rev 6667)
+++ mltonlib/trunk/com/ssh/generic/unstable/public/extra/generic-extra.sig	2008-07-05 15:05:01 UTC (rev 6668)
@@ -38,9 +38,9 @@
     * the following pattern:
     *
     *> fun tupleN (t1, ..., tN) =
-    *>     iso (tuple (T t1 *` ... *` T tN))
-    *>         (fn (v1, ..., vN) => v1 & ... & vN,
-    *>          fn v1 & ... & vN => (v1, ..., vN))
+    *>     tuple' (T t1 *` ... *` T tN)
+    *>            (fn (v1, ..., vN) => (v1 & ... & vN),
+    *>             fn (v1 & ... & vN) => (v1, ..., vN))
     *)
 
    val tuple2 : ('a, 's) Open.Rep.t *