Put bad escape code in the bad-escape error
parent
1788957e1d
commit
413dc67985
|
@ -319,7 +319,9 @@ M: lexer-error error-help
|
|||
M: bad-effect summary
|
||||
drop "Bad stack effect declaration" ;
|
||||
|
||||
M: bad-escape summary drop "Bad escape code" ;
|
||||
M: bad-escape error.
|
||||
"Bad escape code: \\" write
|
||||
char>> 1string print ;
|
||||
|
||||
M: bad-literal-tuple summary drop "Bad literal tuple" ;
|
||||
|
||||
|
|
|
@ -5,7 +5,7 @@ namespaces parser sequences splitting strings arrays
|
|||
math.order ;
|
||||
IN: strings.parser
|
||||
|
||||
ERROR: bad-escape ;
|
||||
ERROR: bad-escape char ;
|
||||
|
||||
: escape ( escape -- ch )
|
||||
H{
|
||||
|
@ -19,7 +19,7 @@ ERROR: bad-escape ;
|
|||
{ CHAR: 0 CHAR: \0 }
|
||||
{ CHAR: \\ CHAR: \\ }
|
||||
{ CHAR: \" CHAR: \" }
|
||||
} at [ bad-escape ] unless* ;
|
||||
} ?at [ bad-escape ] unless ;
|
||||
|
||||
SYMBOL: name>char-hook
|
||||
|
||||
|
|
Loading…
Reference in New Issue