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

Removed a spin

db4
Daniel Ehrenberg 2009-01-21 00:17:25 -06:00
parent 1ad92e2f32
commit 272b919fb7
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -340,11 +340,13 @@ DEFER: direct
} case <doctype-decl> ; } case <doctype-decl> ;
: take-entity-def ( var -- entity-name entity-def ) : take-entity-def ( var -- entity-name entity-def )
[
take-word pass-blank get-char { take-word pass-blank get-char {
{ CHAR: ' [ parse-quote ] } { CHAR: ' [ parse-quote ] }
{ CHAR: " [ parse-quote ] } { CHAR: " [ parse-quote ] }
[ drop take-external-id ] [ drop take-external-id ]
} case [ spin [ ?set-at ] change ] 2keep ; } case swap
] dip [ [ ?set-at ] change ] 2keep swap ;
: take-entity-decl ( -- entity-decl ) : take-entity-decl ( -- entity-decl )
pass-blank get-char { pass-blank get-char {