factor: use more ?if and ?unless

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

diff --git a/basis/xml/tokenize/tokenize.factor b/basis/xml/tokenize/tokenize.factor
index 500ee7a0aa9c49773ede0555efdfedf286618269..e08b68f81583e0ed584522cbff31e10123bfe152 100644 (file)
--- a/basis/xml/tokenize/tokenize.factor
+++ b/basis/xml/tokenize/tokenize.factor
@@ -128,8 +128,9 @@ HINTS: next* { spot } ;
     ] [ parse-named-entity ] if ;
 
 : parse-pe ( accum -- )
-    take-; dup pe-table get at
-    [ swap push-all ] [ no-entity ] ?if-old ;
+    take-;
+    [ pe-table get at ]
+    [ swap push-all ] [ no-entity ] ?if ;
 
 :: (parse-char) ( quot: ( ch -- ? ) accum spot -- )
     spot char>> :> char