factor: use ??if instead of ?if-old

[factor.git] / basis / xml / name / name.factor

diff --git a/basis/xml/name/name.factor b/basis/xml/name/name.factor
index 8166d0f3d59c1613513ed3586951f00e3279ca06..1a9677b5ab6addf136599108f37822003ea171ab 100644 (file)
--- a/basis/xml/name/name.factor
+++ b/basis/xml/name/name.factor
@@ -24,8 +24,9 @@ SYMBOL: ns-stack
     ] { } make f like ;
 
 : add-ns ( name -- )
-    dup space>> dup ns-stack get assoc-stack
-    [ ] [ nonexist-ns ] ?if >>url drop ;
+    dup space>>
+    [ ns-stack get assoc-stack ]
+    [ nonexist-ns ] ?unless >>url drop ;
 
 : push-ns ( hash -- )
     ns-stack get push ;