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

modern: comment/remove some stuff

modern-harvey3
Doug Coleman 2019-10-30 00:29:04 -05:00
parent a4623177b6
commit c3bd9c3b4e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/modern/modern.factor
View File

@ -284,10 +284,12 @@ MACRO:: read-matched ( ch -- quot: ( string n tag -- string n' slice' ) )
dup ?last { dup ?last {
{ [ dup ";" sequence= ] [ drop unclip-last 3array <upper-colon> ] } { [ dup ";" sequence= ] [ drop unclip-last 3array <upper-colon> ] }
{ [ dup ";" tail? ] [ drop unclip-last 3array <upper-colon> ] } { [ dup ";" tail? ] [ drop unclip-last 3array <upper-colon> ] }
! XXX: this part is sketchy
! FOO: asdf -- FOO: asdf ] FOO: asdf } FOO: asdf ) FOO: asdf ASDF> FOO: asdf BAR:
{ [ dup "--" sequence= ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } { [ dup "--" sequence= ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] }
{ [ dup "]" sequence= ] [ "omg1" throw drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } { [ dup "]" sequence= ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] }
{ [ dup "}" sequence= ] [ "omg2" throw drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } { [ dup "}" sequence= ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] }
{ [ dup ")" sequence= ] [ B "opg3" throw drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } ! (n*quot) breaks { [ dup ")" sequence= ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } ! (n*quot) breaks
{ [ dup section-close? ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } { [ dup section-close? ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] }
{ [ dup upper-colon? ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] } { [ dup upper-colon? ] [ drop unclip-last -rot 2array <upper-colon> [ rewind-slice ] dip ] }
[ drop 2array <upper-colon> ] [ drop 2array <upper-colon> ]