...

original commit: 0b70f95730e2205588029a12db68dbf959787411
2000-06-16 20:33:33 +00:00 · 2000-06-16 20:33:33 +00:00 · 78f2e9985e
commit 78f2e9985e
parent f073367576
1 changed files with 40 additions and 39 deletions
--- a/collects/framework/text.ss
+++ b/collects/framework/text.ss
@ -69,6 +69,7 @@
 				(loop this-left
 				      this-right
 				      (cdr canvases))))]))])
+		  (when (and min-left max-right)
 		    (let loop ([left #f]
 			       [top #f]
 			       [right #f]
@ -107,7 +108,7 @@
 					 this-top
 					 this-right
 					 this-bottom
-                                        (cdr rectangles))))]))))]
+					 (cdr rectangles))))])))))]

 	     [recompute-range-rectangles
 	      (lambda ()