modern.slices: more escapes
parent
8a6dbdcb62
commit
5a4f41fc85
|
@ -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' )
|
||||
|
|
Loading…
Reference in New Issue