Fixing xml.dispatch

basis/xml/dispatch/dispatch.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2005, 2009 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
 USING: words assocs kernel accessors parser sequences summary
-lexer splitting fry combinators ;
+lexer splitting fry combinators locals ;
 IN: xml.dispatch
 
 TUPLE: no-tag name word ;
@@ -15,9 +15,6 @@ M: no-tag summary
 : define-tags ( word -- )
     dup dup "xtable" word-prop compile-tags define ;
 
-: define-tag ( string word quot -- )
-    -rot [ "xtable" word-prop set-at ] [ define-tags ] bi ;
-
 :: define-tag ( string word quot -- )
     quot string word "xtable" word-prop set-at
     word define-tags ;