From 4f5837b41ce81705c8a0dc827441a3a91894d67f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 26 Aug 2017 11:38:46 -0500 Subject: [PATCH] modern: Don't need a delimiter stack. Yet? --- extra/modern/modern.factor | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index 190c6ebcea..5e09baa0e4 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -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