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

~n -> \n

Browse Source 
svn: r4940
This commit is contained in:
Eli Barzilay 2006-11-23 21:56:47 +00:00
parent 36d0159d8f
commit 0a857f8d10
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,7 +76,7 @@
(cons
(format "~a~a = "
(if newline? (if (eq? fields null)
(format "~n~a" (get-n-spaces new-tabs))
(format "\n~a" (get-n-spaces new-tabs))
(get-n-spaces new-tabs)) "")
(car current))
(append
@ -90,7 +90,7 @@
num-tabs)))
(list (format "~a~a"
(if next "," "")
(if newline? (format "~n") " ")))))))
(if newline? "\n" " ")))))))
(loop next))))
(cons st
(append
@ -111,15 +111,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)
(if nl? (list (format "~n")) (list " "))
(if nl? (list "\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 "\n") (list ""))
'(" ... ")
(if nl? (list (format "~n")) (list ""))
(if nl? (list "\n") (list ""))
(make-partial-string restart (lambda (i) (>= i len)) (lambda (i) (= i (sub1 len))))
'("]")))))
@ -170,4 +170,4 @@
(else (add1 (total-length (cdr lst))))))
)
)