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

modern: fix # standalone

modern-harvey3
Doug Coleman 2019-10-28 19:28:49 -05:00
parent dc1cb5b7d1
commit 46b0e8d44f
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

@ -334,8 +334,8 @@ MACRO:: read-matched ( ch -- quot: ( string n tag -- string n' slice' ) )
! #{ } turned off, foo# not turned off ! #{ } turned off, foo# not turned off
: read-turnoff ( string n slice -- string n' obj ) : read-turnoff ( string n slice -- string n' obj )
dup { [ "#" head? ] [ "#" sequence= not ] } 1&& [ dup "#" head? [
[ lex-factor ] dip swap 2array [ lex-factor ] dip swap [ 2array ] when* ! ``{ # foo }`` or ``#`` standalone
] [ ] [
merge-slice-til-whitespace merge-slice-til-whitespace
] if ; ] if ;