.

original commit: e743880738a122f6ad10d440aed7b00624303ff0
2003-04-18 21:42:30 +00:00 · 2003-04-18 21:42:30 +00:00 · ccc794f7b2
commit ccc794f7b2
parent 1d360dbecc
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@ -670,7 +670,8 @@
 		   pp-expr
 		   depth)
 	       (let ((head (car expr)))
-		 (if (symbol? head)
+		 (if (and (symbol? head)
+			  (not (size-hook head display?)))
 		     (let ((proc (style head)))
 		       (if proc
 			   (proc expr col extra depth)