From 61c432ef3fbac613743b6973f30efd4fdfeaa23e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Jul 2006 13:48:06 +0000
Subject: [PATCH] don't consider item line-splittable if the size hook returns
 a non-#f value

svn: r3688

original commit: 495e8798203411edd0fb191bd8a4804d6f3af3e7
---
 collects/mzlib/pretty.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index afb9a46..bbd6fc8 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -723,6 +723,7 @@
        (define (pr obj extra pp-pair depth)
 	 ;; may have to split on multiple lines
 	 (let* ([can-multi (and width
+                                (not (size-hook obj display?))
 				(or (pair? obj) (vector? obj) 
 				    (box? obj) 
 				    (and (custom-write? obj)