From 0a857f8d1023434418ca84398b47057d2bfc6327 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 23 Nov 2006 21:56:47 +0000 Subject: [PATCH] ~n -> \n svn: r4940 --- collects/profj/display-java.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/profj/display-java.ss b/collects/profj/display-java.ss index 0d5ac86141..b8e8ca3975 100644 --- a/collects/profj/display-java.ss +++ b/collects/profj/display-java.ss @@ -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)))))) - ) \ No newline at end of file + )