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

2016-12-05 10:38:26 -08:00 · 2016-12-05 10:38:26 -08:00 · 4717d39e69
parent d9cdb80b90
commit 4717d39e69
1 changed files with 1 additions and 1 deletions
--- 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