escape-strings: Fix syntax.

modern-harvey2
Doug Coleman 2017-09-24 13:12:49 -05:00
parent e8a72b0268
commit c3e137c08a
1 changed files with 1 additions and 1 deletions

View File

@ -8,7 +8,7 @@ IN: escape-strings
[ f f f ] dip [
{
{ char: = [ [ dup [ 1 + ] when ] bi@ ] }
{ char: ] [ [ [ 0 or ] 2dip [ max ] curry dip ] when* 0 ] }
{ char: \] [ [ [ 0 or ] 2dip [ max ] curry dip ] when* 0 ] }
[ 2drop f ]
} case
] each 2drop ;