From fda6a1a2a60b48c5911baee95af56b1764419a5c Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 15 Nov 2008 13:26:23 -0500
Subject: [PATCH] - fixed printer of syntax annotations which was printing  
 source info as #<syntax --- (char --- of ---)> instead   of            
 #<syntax --- [char --- of ---]>.

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

diff --git a/scheme/ikarus.strings.ss b/scheme/ikarus.strings.ss
index 0a3a1a5..aff92d6 100644
--- a/scheme/ikarus.strings.ss
+++ b/scheme/ikarus.strings.ss
@@ -206,7 +206,7 @@
                               (die who "not a string" 
                                 (car s*))])))
                      (die who "not a string" s2)))]))
-          (die who "not a string0" s1))))
+          (die who "not a string" s1))))
   
   (define ($string<? s1 s2)
     (let ([n1 ($string-length s1)]
diff --git a/scheme/last-revision b/scheme/last-revision
index b3892d9..357a340 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1680
+1681
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index cdf50fd..81fc2ce 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -265,11 +265,11 @@
         (when (annotation? expr) 
           (let ((src (annotation-source expr)))
             (when (pair? src)
-              (display " (char " p)
+              (display " [char " p)
               (display (cdr src) p)
               (display " of " p)
               (display (car src) p)
-              (display ")" p)))))
+              (display "]" p)))))
       (display ">" p)))
 
   ;;; First, let's look at identifiers, since they're the real