factor: trim using lists

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

diff --git a/basis/xml/entities/entities.factor b/basis/xml/entities/entities.factor
index 9edca9359cc0f2467d76ba5687132c6dd1e70c5f..8a1ef96c9e4dcac5c8814e036fd578da807c80e1 100644 (file)
--- a/basis/xml/entities/entities.factor
+++ b/basis/xml/entities/entities.factor
@@ -1,7 +1,6 @@
 ! Copyright (C) 2005, 2006 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: namespaces make kernel assocs sequences fry
-io.files io.encodings.binary xml.state ;
+USING: assocs kernel make namespaces sequences xml.state ;
 IN: xml.entities
 
 CONSTANT: entities-out
@@ -39,4 +38,4 @@ CONSTANT: entities
     }
 
 : with-entities ( entities quot -- )
-    [ swap extra-entities set call ] with-scope ; inline
+    [ extra-entities ] dip with-variable ; inline