factor: use more ?if and ?unless

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

diff --git a/basis/xml/name/name.factor b/basis/xml/name/name.factor
index 1c9c0dac3a39ae4d36d3ece2df62e8ca032bcdda..0367c60f6fb886382c930b5c52ea73f7ac24ca56 100644 (file)
--- a/basis/xml/name/name.factor
+++ b/basis/xml/name/name.factor
@@ -74,7 +74,7 @@ SYMBOL: ns-stack
     ] [ drop f ] if* ;
 
 : interpret-name ( str -- name )
-    dup prefixed-name [ ] [ <simple-name> ] ?if-old ;
+    [ prefixed-name ] [ <simple-name> ] ?unless ;
 
 PRIVATE>