factor: fix some spacing

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

diff --git a/basis/xml/dtd/dtd.factor b/basis/xml/dtd/dtd.factor
index 29ab7e482cde95e5c73ba3f24c2d61247b73dcd7..a407b73566da5a871fcf5da923f01e73a91e6048 100644 (file)
--- a/basis/xml/dtd/dtd.factor
+++ b/basis/xml/dtd/dtd.factor
@@ -26,7 +26,7 @@ UNION: dtd-acceptable
             { CHAR: \" [ parse-quote ] }
             [ drop take-external-id close ]
         } case
-   ] dip '[ swap _ [ ?set-at ] change ] 2keep ;
+    ] dip '[ swap _ [ ?set-at ] change ] 2keep ;
 
 : take-entity-decl ( -- entity-decl )
     pass-blank get-char {