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

modern: Don't need a delimiter stack. Yet?

modern-harvey2
Doug Coleman 2017-08-26 11:38:46 -05:00
parent bb6ffbd9e2
commit 4f5837b41c
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/modern/modern.factor
View File

@ -11,9 +11,6 @@ ERROR: string-expected-got-eof n string ;
ERROR: long-opening-mismatch tag open n string ch ;
SYMBOL: strict-upper
SYMBOL: delimiter-stack
: push-delimiter-stack ( obj -- ) delimiter-stack get push ;
: pop-delimiter-stack ( -- obj ) delimiter-stack get pop ;
! (( )) [[ ]] {{ }}
MACRO:: read-double-matched ( open-ch -- quot: ( n string tag ch -- n' string seq ) )
@ -275,9 +272,7 @@ ERROR: mismatched-terminator n string slice ;
] if ; inline
: string>literals ( string -- sequence )
[ V{ } clone delimiter-stack ] dip '[
_ [ 0 ] dip [ lex-factor ] loop>array 2nip
] with-variable ;
[ 0 ] dip [ lex-factor ] loop>array 2nip ;
: vocab>literals ( vocab -- sequence )
".private" ?tail drop