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

modern: fix unit tests

modern-harvey3
Doug Coleman 2020-01-25 12:44:19 -06:00
parent c3dbfbbd69
commit cf689792d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/modern/modern.factor
View File

@ -406,7 +406,6 @@ MACRO:: read-matched ( $ch -- quot: ( string n tag -- string n' slice' ) )
] dip swap 2array ] dip swap 2array
] when ; ] when ;
DEFER: lex-factor-top*
: read-backslash ( string n slice -- string n' obj ) : read-backslash ( string n slice -- string n' obj )
! foo\ so far, could be foo\bar{ ! foo\ so far, could be foo\bar{
! remove the \ and continue til delimiter/eof ! remove the \ and continue til delimiter/eof
@ -418,7 +417,8 @@ DEFER: lex-factor-top*
dup "\\" sequence= [ (read-backslash) ] [ merge-slice-til-whitespace ] if dup "\\" sequence= [ (read-backslash) ] [ merge-slice-til-whitespace ] if
] [ ] [
! foo\ or foo\bar (?) ! foo\ or foo\bar (?)
over "\\" tail? [ drop (read-backslash) ] [ lex-factor-top* ] if ! XXX: false branch was lex-factor-top* hmmm
over "\\" tail? [ drop (read-backslash) ] [ lex-factor-fallthrough ] if
] if ; ] if ;
! If the slice is 0 width, we stopped on whitespace before any token. ! If the slice is 0 width, we stopped on whitespace before any token.