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

find.extras: Fix syntax for new parser

modern-harvey2
Doug Coleman 2017-10-12 18:46:02 -05:00
parent d7c12986c6
commit b3bd9b1215
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/find/extras/extras.factor
View File

@ -13,11 +13,11 @@ IN: find.extras
: matching-delimiter ( ch -- ch' ) : matching-delimiter ( ch -- ch' )
H{ H{
{ char: \( char: ) } { char: \( char: \) }
{ char: \[ char: ] } { char: \[ char: \] }
{ char: \{ char: } } { char: \{ char: \} }
{ char: < char: > } { char: < char: > }
{ char: \: char: ; } { char: \: char: \; }
} ?at drop ; } ?at drop ;
: matching-delimiter-string ( string -- string' ) : matching-delimiter-string ( string -- string' )