steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/xml/dispatch/dispatch.factor
View File

@ -8,10 +8,14 @@ TUPLE: no-tag name word ;
M: no-tag summary M: no-tag summary
drop "The tag-dispatching word has no method for the given tag name" ; drop "The tag-dispatching word has no method for the given tag name" ;
<PRIVATE
: compile-tags ( word xtable -- quot ) : compile-tags ( word xtable -- quot )
>alist swap '[ _ no-tag boa throw ] suffix >alist swap '[ _ no-tag boa throw ] suffix
'[ dup main>> _ case ] ; '[ dup main>> _ case ] ;
PRIVATE>
: define-tags ( word -- ) : define-tags ( word -- )
dup dup "xtable" word-prop compile-tags define ; dup dup "xtable" word-prop compile-tags define ;