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

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

diff --git a/basis/xml/entities/entities.factor b/basis/xml/entities/entities.factor
index fdbc084f7faa1712e07e5ac173a1c34ea47f4cef..674fc10fbb811f153195c4c813cf8ed7d455fd2d 100644 (file)
--- a/basis/xml/entities/entities.factor
+++ b/basis/xml/entities/entities.factor
@@ -20,7 +20,7 @@ CONSTANT: quoted-entities-out
 
 : escape-string-by ( str table -- escaped )
     ! Convert <, >, &, ' and " to HTML entities.
-    [ '[ dup _ at [ % ] [ , ] ?if ] each ] "" make ;
+    [ '[ [ _ at ] [ % ] [ , ] ??if ] each ] "" make ;
 
 : escape-string ( str -- newstr )
     entities-out escape-string-by ;