diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor index 6b8bd10570..8899cea0f7 100644 --- a/core/strings/parser/parser.factor +++ b/core/strings/parser/parser.factor @@ -20,12 +20,17 @@ ERROR: bad-escape char ; { CHAR: v CHAR: \v } { CHAR: \s CHAR: \s } { CHAR: 0 CHAR: \0 } + { CHAR: \! CHAR: \! } { CHAR: \\ CHAR: \\ } { CHAR: \" CHAR: \" } { CHAR: \: CHAR: \: } { CHAR: \[ CHAR: \[ } { CHAR: \{ CHAR: \{ } { CHAR: \( CHAR: \( } + { CHAR: \; CHAR: \; } + { CHAR: \] CHAR: \] } + { CHAR: \} CHAR: \} } + { CHAR: \) CHAR: \) } } ?at [ bad-escape ] unless ; SYMBOL: name>char-hook