prettyprint.backend: fix pprint for new escape codes.

db4
John Benediktsson 2014-06-04 06:55:34 -07:00
parent f02a059c78
commit 82486a5f51
1 changed files with 3 additions and 0 deletions

View File

@ -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: \" }