Fixing typo in xml.dispatch
parent
292ebd4a4c
commit
c7a070ba8e
|
@ -8,10 +8,14 @@ TUPLE: no-tag name word ;
|
|||
M: no-tag summary
|
||||
drop "The tag-dispatching word has no method for the given tag name" ;
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: compile-tags ( word xtable -- quot )
|
||||
>alist swap '[ _ no-tag boa throw ] suffix
|
||||
'[ dup main>> _ case ] ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
: define-tags ( word -- )
|
||||
dup dup "xtable" word-prop compile-tags define ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue