xml.entities: use with-variable in with-entities.

diff --git a/basis/xml/entities/entities.factor b/basis/xml/entities/entities.factor
index 9edca9359cc0f2467d76ba5687132c6dd1e70c5f..d79b4eea79f1a71dc8e1964af62c397b31f74d1c 100644 (file)
--- a/basis/xml/entities/entities.factor
+++ b/basis/xml/entities/entities.factor
@@ -39,4 +39,4 @@ CONSTANT: entities
     }
 
 : with-entities ( entities quot -- )
-    [ swap extra-entities set call ] with-scope ; inline
+    [ extra-entities ] dip with-variable ; inline