From b91585467730b260ab618cfa792577e5b0095c83 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Thu, 20 Dec 2007 00:31:49 -0500
Subject: [PATCH] enhanced printing of annotated syntax objects.

---
 scheme/last-revision       |  2 +-
 scheme/psyntax.expander.ss | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 88a9095..f96065a 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1272
+1273
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index ba4a7f9..2da7508 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -200,17 +200,17 @@
   ;;; Now to syntax objects which are records defined like:
   (define-record stx (expr mark* subst*)
     (lambda (x p)
-      (display "#<syntax" p)
+      (display "#<syntax " p)
+      (write (stx->datum x) p)
       (let ([expr (stx-expr x)])
         (when (annotation? expr) 
           (let ([src (annotation-source expr)])
             (when (pair? src)
-              (display "@char " p)
+              (display " [byte " p)
               (display (cdr src) p)
-              (display " of file " p)
-              (display (car src) p)))))
-      (display " " p)
-      (write (stx->datum x) p)
+              (display " of " p)
+              (display (car src) p)
+              (display "]" p)))))
       (display ">" p)))
 
   ;;; First, let's look at identifiers, since they're the real