From 6511dd100225f95d177bdb3bd3d3a118e5f57921 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 13 May 2008 06:09:58 -0700
Subject: [PATCH] Fixed a paren mismatch in "macro?" helper in printer.

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

diff --git a/scheme/ikarus.pretty-formats.ss b/scheme/ikarus.pretty-formats.ss
index 24d2bc0..6cdf54e 100644
--- a/scheme/ikarus.pretty-formats.ss
+++ b/scheme/ikarus.pretty-formats.ss
@@ -31,7 +31,7 @@
       (unless (symbol? x)
         (die 'pretty-format "not a symbol" x))
       (case-lambda
-        [() (hashtable-ref h x)]
+        [() (hashtable-ref h x #f)]
         [(v) (hashtable-set! h x v)])))
 
   ;;; standard formats
diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss
index 21535d1..1496f47 100644
--- a/scheme/ikarus.writer.ss
+++ b/scheme/ikarus.writer.ss
@@ -462,8 +462,8 @@
             (let ([p (get-fmt a)])
               (and (pair? p)
                 (eq? (car p) 'read-macro)
-                (string? (cdr p)))
-                p))))))
+                (string? (cdr p))
+                p)))))))
   
   (define write-pair
     (lambda (x p m h i)
diff --git a/scheme/last-revision b/scheme/last-revision
index 3c074e4..0d4b7f5 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1475
+1476