suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected but in displaying arrays.

Browse Source 
svn: r3442
This commit is contained in:
Kathy Gray 2006-06-22 22:59:14 +00:00
parent 98c5c33845
commit 5cd44fdbc3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/profj/display-java.ss
View File

@ -107,13 +107,15 @@
(list (make-partial-string (add1 idx) first-test second-test)))) (list (make-partial-string (add1 idx) first-test second-test))))
(else (else
(append (internal-format (send value access idx) full-print? style already-printed nl? nt) (append (internal-format (send value access idx) full-print? style already-printed nl? nt)
(list " " (if nl? (list (format "~n")) (list " "))
(make-partial-string (add1 idx) first-test second-test)))))))) (make-partial-string (add1 idx) first-test second-test)))))))
(if (or full-print? (< restart stop)) (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) (>= i len)) (lambda (i) (= i (sub1 len)))) '("]"))
(append '("[") (append '("[")
(make-partial-string 0 (lambda (i) (or (>= i stop) (>= i len))) (lambda (i) (= i (sub1 stop)))) (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)))) (make-partial-string restart (lambda (i) (>= i len)) (lambda (i) (= i (sub1 len))))
'("]"))))) '("]")))))