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

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index b5709dbc1cbc0a040de0d1a49e1431b8b4aacaa2..d9cde6448be0ffc449d6f107f2c31863cd4e95a2 100644 (file)
--- 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 ;