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

xml.syntax: update for syntax change

db4
Slava Pestov 2009-03-22 21:38:06 -05:00
parent 75452c842f
commit 0a8fb3e5f3
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/xml/syntax/syntax.factor
View File

@ -1,10 +1,11 @@
! 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 effects.parser
lexer splitting combinators locals xml.data memoize sequences.deep sequences summary lexer splitting combinators locals xml.data
xml.data xml.state xml namespaces present arrays generalizations strings memoize sequences.deep xml.data xml.state xml namespaces present
make math macros multiline inverse combinators.short-circuit arrays generalizations strings make math macros multiline
sorting fry unicode.categories ; inverse combinators.short-circuit sorting fry unicode.categories
effects ;
IN: xml.syntax IN: xml.syntax
<PRIVATE <PRIVATE
@ -22,12 +23,12 @@ M: no-tag summary
:: 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 word stack-effect define-tags ;
PRIVATE> PRIVATE>
SYNTAX: TAGS: SYNTAX: TAGS:
CREATE complete-effect CREATE-WORD complete-effect
[ drop H{ } clone "xtable" set-word-prop ] [ drop H{ } clone "xtable" set-word-prop ]
[ define-tags ] [ define-tags ]
2bi ; 2bi ;