From 5cd44fdbc308f52e416a26a9ddaf7d4b792f42bb Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 22 Jun 2006 22:59:14 +0000 Subject: [PATCH] Corrected but in displaying arrays. svn: r3442 --- collects/profj/display-java.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/profj/display-java.ss b/collects/profj/display-java.ss index 07fdb12559..b70be62aff 100644 --- a/collects/profj/display-java.ss +++ b/collects/profj/display-java.ss @@ -107,13 +107,15 @@ (list (make-partial-string (add1 idx) first-test second-test)))) (else (append (internal-format (send value access idx) full-print? style already-printed nl? nt) - (list " " - (make-partial-string (add1 idx) first-test second-test)))))))) + (if nl? (list (format "~n")) (list " ")) + (make-partial-string (add1 idx) first-test second-test))))))) (if (or full-print? (< restart stop)) (append '("[") (make-partial-string 0 (lambda (i) (>= i len)) (lambda (i) (= i (sub1 len)))) '("]")) (append '("[") (make-partial-string 0 (lambda (i) (or (>= i stop) (>= i len))) (lambda (i) (= i (sub1 stop)))) + (if nl? (list (format "~n")) (list "")) '(" ... ") + (if nl? (list (format "~n")) (list "")) (make-partial-string restart (lambda (i) (>= i len)) (lambda (i) (= i (sub1 len)))) '("]")))))