prettyprint.backend: fix pprint for new escape codes.
parent
f02a059c78
commit
82486a5f51
|
@ -99,10 +99,13 @@ M: f pprint* drop \ f pprint-word ;
|
|||
: ch>ascii-escape ( ch -- ch' ? )
|
||||
H{
|
||||
{ CHAR: \a CHAR: a }
|
||||
{ CHAR: \b CHAR: b }
|
||||
{ CHAR: \e CHAR: e }
|
||||
{ CHAR: \f CHAR: f }
|
||||
{ CHAR: \n CHAR: n }
|
||||
{ CHAR: \r CHAR: r }
|
||||
{ CHAR: \t CHAR: t }
|
||||
{ CHAR: \v CHAR: v }
|
||||
{ CHAR: \0 CHAR: 0 }
|
||||
{ CHAR: \\ CHAR: \\ }
|
||||
{ CHAR: \" CHAR: \" }
|
||||
|
|
Loading…
Reference in New Issue