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

View File

@ -11,9 +11,6 @@ ERROR: string-expected-got-eof n string ;
ERROR: long-opening-mismatch tag open n string ch ; ERROR: long-opening-mismatch tag open n string ch ;
SYMBOL: strict-upper 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 ) ) 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 ] if ; inline
: string>literals ( string -- sequence ) : string>literals ( string -- sequence )
[ V{ } clone delimiter-stack ] dip '[ [ 0 ] dip [ lex-factor ] loop>array 2nip ;
_ [ 0 ] dip [ lex-factor ] loop>array 2nip
] with-variable ;
: vocab>literals ( vocab -- sequence ) : vocab>literals ( vocab -- sequence )
".private" ?tail drop ".private" ?tail drop