factor: trim using lists

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

diff --git a/basis/xml/dtd/dtd.factor b/basis/xml/dtd/dtd.factor
index 50de78ec118b4ade943b8e4f7957b92348050c01..29ab7e482cde95e5c73ba3f24c2d61247b73dcd7 100644 (file)
--- a/basis/xml/dtd/dtd.factor
+++ b/basis/xml/dtd/dtd.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2005, 2009 Daniel Ehrenberg, Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: xml.tokenize xml.data xml.state kernel sequences ascii
-fry xml.errors combinators hashtables namespaces xml.entities
-strings xml.name ;
+USING: combinators hashtables kernel namespaces xml.data
+xml.errors xml.name xml.state xml.tokenize ;
 IN: xml.dtd
 
 : take-decl-contents ( -- first second )
@@ -15,7 +14,7 @@ IN: xml.dtd
     take-decl-contents <attlist-decl> ;
 
 : take-notation-decl ( -- notation-decl )
-    take-decl-contents <notation-decl> ; 
+    take-decl-contents <notation-decl> ;
 
 UNION: dtd-acceptable
     directive comment instruction ;
@@ -24,7 +23,7 @@ UNION: dtd-acceptable
     [
         take-word pass-blank get-char {
             { CHAR: ' [ parse-quote ] }
-            { CHAR: " [ parse-quote ] }
+            { CHAR: \" [ parse-quote ] }
             [ drop take-external-id close ]
         } case
    ] dip '[ swap _ [ ?set-at ] change ] 2keep ;