steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2014-09-30 08:23:32 -07:00
parent 655797ff34
commit 3fdea2c66b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/prettyprint/backend/backend.factor
View File

@ -112,7 +112,7 @@ M: f pprint* drop \ f pprint-word ;
} ?at ; inline } ?at ; inline
: unparse-ch ( ch -- ) : unparse-ch ( ch -- )
ch>ascii-escape [ "\\" % , ] [ ch>ascii-escape [ CHAR: \\ , , ] [
dup 32 < [ dup 16 < "\\x0" "\\x" ? % >hex % ] [ , ] if dup 32 < [ dup 16 < "\\x0" "\\x" ? % >hex % ] [ , ] if
] if ; ] if ;