[MLton-commit] r5459

Vesa Karvonen vesak at mlton.org
Wed Mar 21 08:07:38 PST 2007


Nope, I was too optimistic.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/misc-util/unstable/glob.sml

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

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/glob.sml
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/glob.sml	2007-03-21 15:59:16 UTC (rev 5458)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/glob.sml	2007-03-21 16:07:38 UTC (rev 5459)
@@ -102,6 +102,8 @@
       implode (rev (to (foldl (fn (e, rs) => to rs e) [] es) e))
    end
 
+   (* XXX exponential complexity (pattern = "*a...*ab", string = "a...a") *)
+
    fun matchStream (es, e) = let
       val es = es @ [e]
    in




More information about the MLton-commit mailing list