- fixed printer of syntax annotations which was printing

source info as #<syntax --- (char --- of ---)> instead
  of             #<syntax --- [char --- of ---]>.

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)]

scheme/last-revision

@@ -1 +1 @@
-1680
+1681

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