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

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

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

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2009 Daniel Ehrenberg ! Copyright (C) 2005, 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: words assocs kernel accessors parser sequences summary USING: words assocs kernel accessors parser sequences summary
lexer splitting fry combinators ; lexer splitting fry combinators locals ;
IN: xml.dispatch IN: xml.dispatch
TUPLE: no-tag name word ; TUPLE: no-tag name word ;
@ -15,9 +15,6 @@ M: no-tag summary
: define-tags ( word -- ) : define-tags ( word -- )
dup dup "xtable" word-prop compile-tags define ; 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 -- ) :: define-tag ( string word quot -- )
quot string word "xtable" word-prop set-at quot string word "xtable" word-prop set-at
word define-tags ; word define-tags ;