[Chicken-hackers] [PATCH 1/2] write: escape DEL character in strings

[Florian Zumbiehl]

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