Fixing xml.dispatch
parent
009ea7ad45
commit
292ebd4a4c
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue