From 2ad6d9bddffe236b7c97a5b4d10bc786c6dafd4d Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 10 Aug 2008 11:03:09 -0700
Subject: [PATCH] strings containing non-ascii characters are written using
 either hex escaping or as-is depending on the value of the print-unicode
 parameter.

---
 scheme/ikarus.writer.ss | 5 +++--
 scheme/last-revision    | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss
index 4db49ae..4f90917 100644
--- a/scheme/ikarus.writer.ss
+++ b/scheme/ikarus.writer.ss
@@ -405,9 +405,10 @@
                 (write-char c p)]
                [($fx< b 127)
                 (write-char c p)]
-               [(unicode-printable-char? c) 
+               [(print-unicode) 
                 (write-char c p)]
-               [else (write-inline-hex b p)]))
+               [else
+                (write-inline-hex b p)]))
            (loop x (fxadd1 i) n p)))) 
       (write-char #\" p)
       (loop x 0 (string-length x) p)
diff --git a/scheme/last-revision b/scheme/last-revision
index 59a0a5c..6ad20cc 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1580
+1581