Fixing typo in xml.dispatch

db4
Daniel Ehrenberg 2009-02-04 13:25:51 -06:00
parent 292ebd4a4c
commit c7a070ba8e
1 changed files with 4 additions and 0 deletions

View File

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