Fixed a paren mismatch in "macro?" helper in printer.

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

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)

scheme/last-revision

@@ -1 +1 @@
-1475
+1476