Encode DEL (ASCII character 127) in strings as \x7f instead of as literal DEL
in write.
---
library.scm | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/library.scm b/library.scm
index 27d543f..89eb6bd 100644
--- a/library.scm
+++ b/library.scm
@@ -3301,7 +3301,8 @@ EOF
((34) (outstr port "\\\""))
((92) (outstr port "\\\\"))
(else
- (cond ((fx< chr 32)
+ (cond ((or (fx< chr 32)
+ (fx= chr 127))
(outchr port #\\)
(case chr
((9) (outchr port #\t))
--
1.7.2.5
_______________________________________________
Chicken-hackers mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
