Fixing xml.dispatch

db4
Daniel Ehrenberg 2009-02-04 12:34:18 -06:00
parent 009ea7ad45
commit 292ebd4a4c
1 changed files with 1 additions and 4 deletions

View File

@ -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 ;