[MLton-commit] r5362

[Vesa Karvonen]

Bug fix.

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

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

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

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/node.sml
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/node.sml	2007-02-28 12:37:07 UTC (rev 5361)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/node.sml	2007-02-28 13:04:32 UTC (rev 5362)
@@ -188,7 +188,8 @@
    fun filter p t =
        case get t of
           NONE => t
-        | SOME (x, t') => (if p x then () else drop t ; filter p t')
+        | SOME (x, t') =>
+          if p x then filter p t' else (t <- get t' ; filter p t)
 
    fun filterOut p = filter (negate p)
 end