modern.slices: more escapes

locals-and-roots
Doug Coleman 2016-06-17 14:37:46 -07:00
parent 8a6dbdcb62
commit 5a4f41fc85
1 changed files with 5 additions and 5 deletions

View File

@ -6,11 +6,11 @@ in: modern.slices
: matching-delimiter ( ch -- ch' )
H{
{ char: \( char: ) }
{ char: \[ char: ] }
{ char: \{ char: } }
{ char: < char: > }
{ char: \: char: ; }
{ char: \( char: \) }
{ char: \[ char: \] }
{ char: \{ char: \} }
{ char: \< char: \> }
{ char: \: char: \; }
} ?at drop ;
: matching-delimiter-string ( string -- string' )