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

modern: Handle foo[3] and foo[3

modern-harvey3
Doug Coleman 2019-12-07 18:35:18 -08:00
parent a4a9500be1
commit a4208887b1
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/modern/modern-tests.factor
View File

@ -260,3 +260,6 @@ IN: modern.tests
{ } [ "[1,b)" string>literals drop ] unit-test { } [ "[1,b)" string>literals drop ] unit-test
{ } [ "[1,b]" string>literals drop ] unit-test { } [ "[1,b]" string>literals drop ] unit-test
{ } [ "REAL[5" string>literals drop ] unit-test
{ } [ "REAL[5]" string>literals drop ] unit-test
{ } [ "REAL[5][5]" string>literals drop ] unit-test

3
extra/modern/modern.factor
View File

@ -126,9 +126,10 @@ MACRO:: read-matched ( $ch -- quot: ( string n tag -- string n' slice' ) )
[ $openstr-chars member? ] [ $openstr-chars member? ]
[ [
! check that opening is good form ! check that opening is good form
! stop at (, ), or blank
drop drop
$string $n [ $string $n [
{ [ $ch = ] [ blank? ] } 1|| { [ $ch = ] [ $ch matching-delimiter = ] [ blank? ] } 1||
] t slice-until 3nip $ch = ] t slice-until 3nip $ch =
] ]
} 1&& } 1&&