From 2c1bd17837ef8895e16b19017f5a9fe4449f5d1d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 30 Apr 2005 15:55:21 +0000
Subject: [PATCH] .

original commit: 5b862c32b245c151fe69d1b10dae614dd58aacc9
---
 collects/mzlib/pretty.ss | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 7dc29ca..73091fd 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -237,7 +237,7 @@
 		     (lambda (special block break?)
 		       (write-special special /dev/null)
 		       (check-esc)
-		       (set! content (cons (box special) content))
+		       (set! content (cons (cons 'special special) content))
 		       #t))
 		#f #f
 		(lambda ()
@@ -774,11 +774,12 @@
 
        (define (pp-expr expr extra depth)
 	 (if (read-macro? expr)
-	     (pr (read-macro-body expr)
-		 (out (read-macro-prefix expr))
-		 extra
-		 pp-expr
-		 depth)
+	     (begin
+	       (out (read-macro-prefix expr))
+	       (pr (read-macro-body expr)
+		   extra
+		   pp-expr
+		   depth))
 	     (let ((head (car expr)))
 	       (if (and (symbol? head)
 			(not (size-hook head display?)))