prettyprint.backend: use , not % in unparse-ch.

2014-09-30 08:23:32 -07:00 · 2014-09-30 08:23:32 -07:00 · 3fdea2c66b
parent 655797ff34
commit 3fdea2c66b
1 changed files with 1 additions and 1 deletions
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@ -112,7 +112,7 @@ M: f pprint* drop \ f pprint-word ;
    } ?at ; inline

 : unparse-ch ( ch -- )
-    ch>ascii-escape [ "\\" % , ] [
+    ch>ascii-escape [ CHAR: \\ , , ] [
        dup 32 < [ dup 16 < "\\x0" "\\x" ? % >hex % ] [ , ] if
    ] if ;