if-empty changes

[factor.git] / extra / xml / syntax / syntax.factor

diff --git a/extra/xml/syntax/syntax.factor b/extra/xml/syntax/syntax.factor
index 283efa84120ce04d97026ad70316c75c089f2e74..6b765461e579c2b33128e85823fe3e797993f292 100644 (file)
--- a/extra/xml/syntax/syntax.factor
+++ b/extra/xml/syntax/syntax.factor
@@ -21,10 +21,10 @@ IN: xml.syntax
 DEFER: >>
 
 : attributes-parsed ( accum quot -- accum )
-    dup empty? [ drop f parsed ] [
+    [ f parsed ] [
         >r \ >r parsed r> parsed
         [ H{ } make-assoc r> swap ] [ parsed ] each
-    ] if ;
+    ] if-empty ;
 
 : <<
     parsed-name [