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

Fixing xmode?

db4
Daniel Ehrenberg 2009-01-28 23:56:47 -06:00
parent d647209ca5
commit 356ee5ced5
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/xmode/loader/syntax/syntax.factor
View File

@ -31,7 +31,7 @@ SYMBOL: ignore-case?
! PROP, PROPS ! PROP, PROPS
: parse-prop-tag ( tag -- key value ) : parse-prop-tag ( tag -- key value )
"NAME" over at "VALUE" rot at ; [ "NAME" attr ] [ "VALUE" attr ] bi ;
: parse-props-tag ( tag -- assoc ) : parse-props-tag ( tag -- assoc )
child-tags child-tags
@ -40,7 +40,7 @@ SYMBOL: ignore-case?
: position-attrs ( tag -- at-line-start? at-whitespace-end? at-word-start? ) : position-attrs ( tag -- at-line-start? at-whitespace-end? at-word-start? )
! XXX Wrong logic! ! XXX Wrong logic!
{ "AT_LINE_START" "AT_WHITESPACE_END" "AT_WORD_START" } { "AT_LINE_START" "AT_WHITESPACE_END" "AT_WORD_START" }
swap [ at string>boolean ] curry map first3 ; [ attr string>boolean ] with map first3 ;
: parse-literal-matcher ( tag -- matcher ) : parse-literal-matcher ( tag -- matcher )
dup children>string dup children>string