diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor index b5709dbc1c..d9cde6448b 100644 --- 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 ;