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

Fixing xml.name for word name change

db4
Daniel Ehrenberg 2009-01-29 18:38:14 -06:00
parent b01cd06245
commit 875592b010
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,7 +47,7 @@ SYMBOL: ns-stack
: valid-name? ( str -- ? ) : valid-name? ( str -- ? )
[ f ] [ [ f ] [
version=1.0? swap { version-1.0? swap {
[ first name-start? ] [ first name-start? ]
[ rest-slice [ name-char? ] with all? ] [ rest-slice [ name-char? ] with all? ]
} 2&& } 2&&
@ -66,7 +66,7 @@ SYMBOL: ns-stack
] ?if ; ] ?if ;
: take-name ( -- string ) : take-name ( -- string )
version=1.0? '[ _ get-char name-char? not ] take-until ; version-1.0? '[ _ get-char name-char? not ] take-until ;
: parse-name ( -- name ) : parse-name ( -- name )
take-name interpret-name ; take-name interpret-name ;