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

modern: no concatenative syntax yet.

modern-harvey2
Doug Coleman 2017-12-03 23:13:00 -06:00
parent b14955365c
commit 588c591424
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/modern/modern.factor
View File

@ -206,11 +206,11 @@ ERROR: unexpected-terminator n string slice ;
! Remove the ; from the payload if present ! Remove the ; from the payload if present
! Also in stack effects ( T: int -- ) can be ended by -- and ) ! Also in stack effects ( T: int -- ) can be ended by -- and )
dup ?last { dup ?last {
{ [ dup ";" tail? ] [ drop unclip-last 3array ] } { [ dup ";" sequence= ] [ drop unclip-last 3array ] }
{ [ dup "--" tail? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } { [ dup "--" sequence= ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] }
{ [ dup "]" tail? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } { [ dup "]" sequence= ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] }
{ [ dup "}" tail? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } { [ dup "}" sequence= ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] }
{ [ dup ")" tail? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } { [ dup ")" sequence= ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } ! (n*quot) breaks
{ [ dup section-close? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } { [ dup section-close? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] }
{ [ dup upper-colon? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] } { [ dup upper-colon? ] [ drop unclip-last -rot 2array [ rewind-slice ] dip ] }
[ drop 2array ] [ drop 2array ]
@ -359,7 +359,8 @@ ERROR: compound-syntax-disallowed n seq obj ;
] loop ] loop
] { } make ] { } make
check-for-compound-syntax check-for-compound-syntax
concat f like ; ! concat ! "ALIAS: n*quot (n*quot)" string>literals ... breaks here
?first f like ;
: string>literals ( string -- sequence ) : string>literals ( string -- sequence )
[ 0 ] dip [ [ 0 ] dip [