diff --git a/collects/frtime/core/frp.rkt b/collects/frtime/core/frp.rkt index 3dc2b7002c..24f427426b 100644 --- a/collects/frtime/core/frp.rkt +++ b/collects/frtime/core/frp.rkt @@ -614,7 +614,7 @@ (loop)] [msg (fprintf (current-error-port) - "frtime engine: msg not understood: ~a~n" + "frtime engine: msg not understood: ~a\n" msg) (loop)])) diff --git a/collects/frtime/frlibs/date.rkt b/collects/frtime/frlibs/date.rkt index 5ec8ed821d..86dfd58920 100644 --- a/collects/frtime/frlibs/date.rkt +++ b/collects/frtime/frlibs/date.rkt @@ -287,7 +287,7 @@ (if (<= input test) 'input-smaller 'test-smaller)))]))]) - ; (printf "~a ~a ~a~n" compare secs (date->string date)) + ; (printf "~a ~a ~a\n" compare secs (date->string date)) (cond [(eq? compare 'equal) secs] [(or (= secs below-secs) (= secs above-secs)) diff --git a/collects/frtime/gui/demo/instr.rkt b/collects/frtime/gui/demo/instr.rkt index e0b4f6659c..ff87501297 100644 --- a/collects/frtime/gui/demo/instr.rkt +++ b/collects/frtime/gui/demo/instr.rkt @@ -95,7 +95,7 @@ (label "Check3"))) ; get the streams from the check boxes -(printf "callbacks->args-evts:~n") +(printf "callbacks->args-evts:\n") (send my-cb1 get-focus-events) (send my-cb2 get-focus-events) (send my-cb3 get-focus-events) @@ -143,7 +143,7 @@ (map-e car es))) (label "Check4"))) -(printf "mixin-merge-e:~n") +(printf "mixin-merge-e:\n") (send my-cb4 get-focus-events) ; focus-events (send my-cb4 get-key-events) ; key-events diff --git a/collects/frtime/lang-core.rkt b/collects/frtime/lang-core.rkt index 376cfe468b..4503be98e6 100644 --- a/collects/frtime/lang-core.rkt +++ b/collects/frtime/lang-core.rkt @@ -93,7 +93,7 @@ (lambda (e) (fprintf (current-error-port) - "you've encountered a bug in frtime. please send a report to the Racket mailing list.~nexn: ~a~n" + "you've encountered a bug in frtime. please send a report to the Racket mailing list.\nexn: ~a\n" e) #f))) (cond [(memq obj mem) #f] diff --git a/collects/frtime/lang-ext.rkt b/collects/frtime/lang-ext.rkt index 0f1416c083..6fd1bc19e5 100644 --- a/collects/frtime/lang-ext.rkt +++ b/collects/frtime/lang-ext.rkt @@ -555,7 +555,7 @@ [proc-k (lambda (evt) (proc emit suspend evt) (set! proc-k #f))]) (let ([thunk (lambda () (when (ormap undefined? streams) - ;(fprintf (current-error-port) "had an undefined stream~n") + ;(fprintf (current-error-port) "had an undefined stream\n") (set! streams (fix-streams streams args))) (let loop ([streams streams]) (extract (lambda (the-event strs) @@ -658,7 +658,7 @@ rtn)))) (define (make-mutable lst) - (printf "make-mutable called on ~a~n" lst) + (printf "make-mutable called on ~a\n" lst) lst #;(if (pair? lst) (mcons (first lst) (make-mutable (rest lst))) @@ -774,7 +774,7 @@ (syntax->list #'(exp ...)))]) #'(tag new-exp ...))] [x (begin - (fprintf (current-error-port) "snapshot-unbound: fell through on ~a~n" #'x) + (fprintf (current-error-port) "snapshot-unbound: fell through on ~a\n" #'x) '())]) expr insp #f)))) @@ -793,7 +793,7 @@ [(free-var ...) (hash-map unbound-ids (lambda (k v) k))]) (begin - ;(printf "~a~n" unbound-ids) + ;(printf "~a\n" unbound-ids) #'(if (ormap behavior? (list free-var ...)) (procs->signal:compound (lambda _ (lambda (id ...) diff --git a/collects/games/gobblet/check.rkt b/collects/games/gobblet/check.rkt index 7c266409eb..ac2f0465e8 100644 --- a/collects/games/gobblet/check.rkt +++ b/collects/games/gobblet/check.rkt @@ -47,7 +47,7 @@ ;; from getting too big. (set! cnt 0) (set! search (mk-search))) - (printf "------------~n~a~n" (board->string depth board)) + (printf "------------\n~a\n" (board->string depth board)) (cond [(winner? board 'red) 0] [(winner? board 'yellow) @@ -112,6 +112,6 @@ (hash-table-for-each move-map (lambda (k v) (when (> (list-ref v 3) 1) - (printf "~s~n" (cons k v))))))) + (printf "~s\n" (cons k v))))))) CONFIG EXPLORE MODEL HEURISTICS)]) (export)))) diff --git a/collects/games/gobblet/explore.rkt b/collects/games/gobblet/explore.rkt index 4d312e682b..23cc15946d 100644 --- a/collects/games/gobblet/explore.rkt +++ b/collects/games/gobblet/explore.rkt @@ -92,7 +92,7 @@ 0 ; indent init-memory me board)]) - (log-printf 1 0 "> ~a/~a Result: ~a~n" + (log-printf 1 0 "> ~a/~a Result: ~a\n" steps (min max-depth one-step-depth) (play->string v)) v)) @@ -471,7 +471,7 @@ (set! explore-count 0) (set! enter-count 0) (set! move-count 0) - (log-printf 1 indent "~a> ~a Exploring for ~a~n" (make-string indent #\space) steps me) + (log-printf 1 indent "~a> ~a Exploring for ~a\n" (make-string indent #\space) steps me) (let-values ([(vs xform) (minmax 0 (if (or (steps . <= . 1) first-move?) @@ -480,7 +480,7 @@ config me board #f #f)]) - (log-printf 2 indent "~a>> Done ~a ~a ~a ~a+~a [~a secs]~n" + (log-printf 2 indent "~a>> Done ~a ~a ~a ~a+~a [~a secs]\n" (make-string indent #\space) hit-count depth-count explore-count enter-count move-count (float->string (/ (- (current-inexact-milliseconds) now) 1000))) @@ -559,7 +559,7 @@ (with-output-to-file MEMORY-FILE (lambda () (let ([m (cdar plays)]) - (printf "(~a ~a ~a)~n#|~n~a|#~n" + (printf "(~a ~a ~a)\n#|\n~a|#\n" (if (found-win? plays) 'win 'lose) (car board-key+xform) (list @@ -620,10 +620,10 @@ (define (show-recur sz from-i from-j to-i to-j sv) (if (not (plan? (cdar sv))) - (printf " Recur ~a (~a,~a)->(~a,~a) ; ??? = ~a/~a~n" + (printf " Recur ~a (~a,~a)->(~a,~a) ; ??? = ~a/~a\n" sz from-i from-j to-i to-j (caar sv) (get-depth (car sv))) - (printf " Recur ~a (~a,~a)->(~a,~a) ; (~a,~a)->(~a,~a) = ~a/~a~n" + (printf " Recur ~a (~a,~a)->(~a,~a) ; (~a,~a)->(~a,~a) = ~a/~a\n" sz from-i from-j to-i to-j (plan-from-i (cdar sv)) (plan-from-j (cdar sv)) (plan-to-i (cdar sv)) (plan-to-j (cdar sv)) diff --git a/collects/games/gobblet/model.rkt b/collects/games/gobblet/model.rkt index 19f9858295..8868bc9fd9 100644 --- a/collects/games/gobblet/model.rkt +++ b/collects/games/gobblet/model.rkt @@ -202,7 +202,7 @@ [three-red-board (move two-red-board (cadr red-pieces) #f #f 1 1 values void)]) (define (test x y) (unless (equal? x y) - (error 'test "failure!: ~s ~s~n" x y))) + (error 'test "failure!: ~s ~s\n" x y))) (test #f (n-in-a-row/col? 1 empty-board 0 0 'red)) (test #t (n-in-a-row/col? 1 one-red-board 0 0 'red)) (test #t (n-in-a-row/col? 2 two-red-board 0 0 'red)) diff --git a/collects/games/gobblet/robot.rkt b/collects/games/gobblet/robot.rkt index 2297313051..af9a114d85 100644 --- a/collects/games/gobblet/robot.rkt +++ b/collects/games/gobblet/robot.rkt @@ -57,13 +57,13 @@ [history null]) (cond [(winner? board who) - (printf "----------- ~a wins!-------------~n~a~n" who (board->string 1 board)) + (printf "----------- ~a wins!-------------\n~a\n" who (board->string 1 board)) (go)] [(winner? board (other who)) - (printf "----------- ~a wins!-------------~n~a~n" (other who) (board->string 1 board)) + (printf "----------- ~a wins!-------------\n~a\n" (other who) (board->string 1 board)) (go)] [else - (printf "~n~a moved; ~a's turn~n~a~n" who-moved who (board->string 1 board)) + (printf "\n~a moved; ~a's turn\n~a\n" who-moved who (board->string 1 board)) (let ([start (current-inexact-milliseconds)] [m ((make-search (if (= BOARD-SIZE 3) make-3x3-rate-board @@ -73,7 +73,7 @@ make-4x4-canned-moves)) timeout steps depth who board history)]) - (printf "[~a secs]~n" (/ (- (current-inexact-milliseconds) start) + (printf "[~a secs]\n" (/ (- (current-inexact-milliseconds) start) 1000.0)) (loop (apply-play board m) (other who) who (cons board history)))]))))) CONFIG EXPLORE MODEL HEURISTICS)]) diff --git a/collects/games/gobblet/test-explore.rkt b/collects/games/gobblet/test-explore.rkt index 774b1d1692..17ee355e77 100644 --- a/collects/games/gobblet/test-explore.rkt +++ b/collects/games/gobblet/test-explore.rkt @@ -70,7 +70,7 @@ ;; Time test (let ([start (current-inexact-milliseconds)] [m (test-search 5 empty-board 'red null)]) - (printf "[~a secs]~n" (/ (- (current-inexact-milliseconds) start) + (printf "[~a secs]\n" (/ (- (current-inexact-milliseconds) start) 1000.0)) )) CONFIG EXPLORE MODEL HEURISTICS)]) diff --git a/collects/games/gobblet/test.rkt b/collects/games/gobblet/test.rkt index d0293594cf..c9336c4ead 100644 --- a/collects/games/gobblet/test.rkt +++ b/collects/games/gobblet/test.rkt @@ -18,10 +18,10 @@ (set-failed!) (printf " EXPECTED ~s" ex) (exit)) - (printf "~n")))])) + (printf "\n")))])) (define (report-test-results) (printf (if failed? - "~nTESTS FAILED~n" - "~nAll tests passed.~n")))) + "\nTESTS FAILED\n" + "\nAll tests passed.\n")))) diff --git a/collects/games/lights-out/board.rkt b/collects/games/lights-out/board.rkt index 71b7e457d1..46f922b707 100644 --- a/collects/games/lights-out/board.rkt +++ b/collects/games/lights-out/board.rkt @@ -134,7 +134,7 @@ [n choice]) (cond [(zero? n) - ;(printf "choose: ~a~n" (car choices)) + ;(printf "choose: ~a\n" (car choices)) (set! choice-coordinates (car choices)) (cdr choices)] [else (cons (car choices) (loop (cdr choices) (- n 1)))]))) diff --git a/collects/games/paint-by-numbers/gui.rkt b/collects/games/paint-by-numbers/gui.rkt index 615c13edae..814e4d4e07 100644 --- a/collects/games/paint-by-numbers/gui.rkt +++ b/collects/games/paint-by-numbers/gui.rkt @@ -426,7 +426,7 @@ paint by numbers. [(eq? prev WRONG-BRUSH) UNKNOWN-BRUSH] [else (error 'internal-error - "unkown brush in board ~s~n" prev)]))] + "unkown brush in board ~s\n" prev)]))] [define/private check-modifier (lambda (evt) @@ -741,7 +741,7 @@ paint by numbers. (loop (- i 1) 0 ans) (loop (- i 1) 0 (cons block-count ans)))] [(on) (loop (- i 1) (+ block-count 1) ans)] - [else (error 'calculate-col "unknown response from get-rect: ~a~n" this)]))])))] + [else (error 'calculate-col "unknown response from get-rect: ~a\n" this)]))])))] [define/private calculate-col (lambda (col) @@ -762,7 +762,7 @@ paint by numbers. (let loop ([l col/row-numbers] [n col/row]) (cond - [(null? l) (error 'update-col/row "col/row too big: ~a~n" col/row)] + [(null? l) (error 'update-col/row "col/row too big: ~a\n" col/row)] [(zero? n) (cons (calculate-col/row col/row) (cdr l))] diff --git a/collects/games/paint-by-numbers/main.rkt b/collects/games/paint-by-numbers/main.rkt index 8f57f6384d..eaab6a9169 100644 --- a/collects/games/paint-by-numbers/main.rkt +++ b/collects/games/paint-by-numbers/main.rkt @@ -265,8 +265,8 @@ (fw:gui-utils:get-choice (format "~ Solving can be a very computationally intense task;~ -~nyou may run out of memory and crash. ~ -~nReally continue? (Be sure to save your work!)") +\nyou may run out of memory and crash. ~ +\nReally continue? (Be sure to save your work!)") "Yes" "No" "Really Solve?" diff --git a/collects/games/paint-by-numbers/paint-by-numbers.rkt b/collects/games/paint-by-numbers/paint-by-numbers.rkt index fec8c716ec..47c91dc3b4 100644 --- a/collects/games/paint-by-numbers/paint-by-numbers.rkt +++ b/collects/games/paint-by-numbers/paint-by-numbers.rkt @@ -278,8 +278,8 @@ (gui-utils:get-choice (format "~ Solving can be a very computationally intense task;~ - ~nyou may run out of memory and crash. ~ - ~nReally continue? (Be sure to save your work!)") + \nyou may run out of memory and crash. ~ + \nReally continue? (Be sure to save your work!)") "Yes" "No" "Really Solve?" diff --git a/collects/games/paint-by-numbers/raw-problems/build-hattori.rkt b/collects/games/paint-by-numbers/raw-problems/build-hattori.rkt index 0a963b55a2..552e81675b 100644 --- a/collects/games/paint-by-numbers/raw-problems/build-hattori.rkt +++ b/collects/games/paint-by-numbers/raw-problems/build-hattori.rkt @@ -17,7 +17,7 @@ (newline (current-error-port)))) (define (calculate-grid filename) - (fprintf (current-error-port) "reading ~a~n" filename) + (fprintf (current-error-port) "reading ~a\n" filename) (let* ([bitmap (make-object bitmap% filename)] [_ (unless (send bitmap ok?) (error 'bad-bitmap "name: ~a" filename))] @@ -34,10 +34,10 @@ [new-bitmap-height (floor (/ (- puzzle-height 1) pixel-size))]) (begin - (fprintf (current-error-port) "size of picture: ~a x ~a~n" raw-width raw-height) - (fprintf (current-error-port) " size of image: ~a x ~a~n" image-width image-height) - (fprintf (current-error-port) "grid-start (~a, ~a)~n" grid-x-start grid-y-start) - (fprintf (current-error-port) "size of puzzle: ~a x ~a~n" + (fprintf (current-error-port) "size of picture: ~a x ~a\n" raw-width raw-height) + (fprintf (current-error-port) " size of image: ~a x ~a\n" image-width image-height) + (fprintf (current-error-port) "grid-start (~a, ~a)\n" grid-x-start grid-y-start) + (fprintf (current-error-port) "size of puzzle: ~a x ~a\n" puzzle-width puzzle-height)) (reverse @@ -62,7 +62,7 @@ (* pixel-size (+ j -1 1/2))))) 'x 'o)]) - ;(fprintf (current-error-port) "(~a, ~a) is ~a~n" i j pixel-value) + ;(fprintf (current-error-port) "(~a, ~a) is ~a\n" i j pixel-value) (cons pixel-value (loop (- i 1))))]))) (loop (- j 1)))]))))) @@ -162,7 +162,7 @@ (call-with-output-file "raw-hattori.ss" (lambda (port) (parameterize ([current-output-port port]) - (printf "`(~n") + (printf "`(\n") (let loop ([n 1]) (when (<= n 139) (main-n n) diff --git a/collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt b/collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt index 180e88ed4e..6d6c173b47 100644 --- a/collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt +++ b/collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt @@ -8,12 +8,12 @@ "expected an image file on the command-line")) (define image (vector-ref argv 0)) -(fprintf (current-error-port) "processing ~a~n" image) +(fprintf (current-error-port) "processing ~a\n" image) (define bitmap (make-object bitmap% image)) (when (send bitmap is-color?) (fprintf (current-error-port) - "expected a monochrome bitmap -- all non-black spaces will be considered white~n")) + "expected a monochrome bitmap -- all non-black spaces will be considered white\n")) (newline (current-error-port)) diff --git a/collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt b/collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt index 5522bc2075..94123af724 100644 --- a/collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt +++ b/collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt @@ -28,8 +28,8 @@ The col and row type specs are in sig.ss and the solution type is: (prefix solve: "../solve.ss")) (if (equal? (vector) argv) - (printf "pass any command line argument to skip the solver~n~n") - (printf "skipping the solver~n")) + (printf "pass any command line argument to skip the solver\n\n") + (printf "skipping the solver\n")) (define memory-limit (* 1024 1024 400)) ;; in bytes (500 megs) @@ -161,7 +161,7 @@ The col and row type specs are in sig.ss and the solution type is: (newline)] [else (let ([dots-to-print (floor (- (* progress-bar-max (/ counter (- max 1))) dots-printed))]) - '(printf "~spercentage: ~a ~a ~a ~a~n" + '(printf "~spercentage: ~a ~a ~a ~a\n" cleanup dots-to-print counter @@ -184,7 +184,7 @@ The col and row type specs are in sig.ss and the solution type is: (define (solve name rows cols) (cond [(equal? argv (vector)) - (printf "Solving ~s; memory limit ~a~n" + (printf "Solving ~s; memory limit ~a\n" name (format-memory-txt memory-limit)) (let ([row-count (length rows)] [col-count (length cols)]) @@ -205,7 +205,7 @@ The col and row type specs are in sig.ss and the solution type is: (semaphore-wait kill) (set! sucessful? #f) (kill-thread k) - (fprintf (current-error-port) "~nsolver raised an exception~n~a~n" + (fprintf (current-error-port) "\nsolver raised an exception\n~a\n" (if (exn? x) (exn-message x) x)) @@ -235,7 +235,7 @@ The col and row type specs are in sig.ss and the solution type is: (void)))))) (semaphore-wait kill) (kill-thread t) - (fprintf (current-error-port) "~n memory limit expired.~n") + (fprintf (current-error-port) "\n memory limit expired.\n") (collect-garbage)(collect-garbage)(collect-garbage)(collect-garbage)(collect-garbage) (update-memory-display) (semaphore-post done)))]) @@ -271,10 +271,10 @@ The col and row type specs are in sig.ss and the solution type is: [problems (caddr set)]) (for-each sanity-check problems) (if (file-exists? output-file) - (printf "skipping ~s (~a)~n" set-name (normalize-path output-file)) + (printf "skipping ~s (~a)\n" set-name (normalize-path output-file)) (call-with-output-file output-file (lambda (port) - (printf "Building ~s~n" set-name) + (printf "Building ~s\n" set-name) (parameterize ([current-output-port port]) (write `(unit/sig paint-by-numbers:problem-set^ diff --git a/collects/games/paint-by-numbers/solve.rkt b/collects/games/paint-by-numbers/solve.rkt index 94aa0f9bc3..38f4a2c90e 100644 --- a/collects/games/paint-by-numbers/solve.rkt +++ b/collects/games/paint-by-numbers/solve.rkt @@ -559,7 +559,7 @@ ((unknown) ".") ((on) "#")))) row) - (printf "~n")) + (printf "\n")) (extract-rows board))) ; animate-changes takes a board and draws it on the main screen diff --git a/collects/games/pousse/counter.rkt b/collects/games/pousse/counter.rkt index 0f0e630415..39f51721b6 100644 --- a/collects/games/pousse/counter.rkt +++ b/collects/games/pousse/counter.rkt @@ -70,7 +70,7 @@ '(when (= depth 2) (fprintf (current-error-port) - "us: ~a them: ~a u-m:~a t-m: ~a u-l: ~a t-l: ~a u-c: ~a t-c: ~a~n" + "us: ~a them: ~a u-m:~a t-m: ~a u-l: ~a t-l: ~a u-c: ~a t-c: ~a\n" usses thems middle-usses middle-thems us-in-line them-in-line diff --git a/collects/games/pousse/pousse.rkt b/collects/games/pousse/pousse.rkt index d974fbffe8..1e23632080 100644 --- a/collects/games/pousse/pousse.rkt +++ b/collects/games/pousse/pousse.rkt @@ -290,9 +290,9 @@ (format (string-append "There was an error running the " - "program player for ~a.~n" - "We'll assume a default move, T1.~n" - "Here is the error message:~n~a") + "program player for ~a.\n" + "We'll assume a default move, T1.\n" + "Here is the error message:\n~a") who (if (exn? exn) (exn-message exn) @@ -685,7 +685,7 @@ (with-handlers ([void (lambda (exn) (message-box "Error" - (format "There was an error:~n~a" + (format "There was an error:\n~a" (if (exn? exn) (exn-message exn) exn))))]) diff --git a/collects/games/pousse/robot.rkt b/collects/games/pousse/robot.rkt index 4bb3e1027c..5ec4192d75 100644 --- a/collects/games/pousse/robot.rkt +++ b/collects/games/pousse/robot.rkt @@ -125,7 +125,7 @@ (- (car gf) good-so-far))]) '(when (and (= depth RECURSION-DEPTH)) - (fprintf (current-error-port) "Returned goodness: ~a~n" (car move)) + (fprintf (current-error-port) "Returned goodness: ~a\n" (car move)) (print-board (cadr gf) (current-error-port))) (let ([g (car move)]) @@ -153,7 +153,7 @@ '(when (and (= depth RECURSION-DEPTH)) (for-each (lambda (gf) - (fprintf (current-error-port) "Goodness: ~a~n" (car gf)) + (fprintf (current-error-port) "Goodness: ~a\n" (car gf)) (print-board (cadr gf) (current-error-port))) good-futures)) @@ -263,9 +263,9 @@ (thread (lambda () (let loop ([iteration 0]) - ; (fprintf (current-error-port) "Starting iteration ~a~n" iteration) + ; (fprintf (current-error-port) "Starting iteration ~a\n" iteration) (set! result (f iteration)) - '(fprintf (current-error-port) " [finished iteration depth ~a: ~a~a]~n" + '(fprintf (current-error-port) " [finished iteration depth ~a: ~a~a]\n" iteration (cadr result) (add1 (cddr result))) (unless (or (pair? (car result))) (loop (add1 iteration))))))) @@ -282,7 +282,7 @@ (define (go) '(begin - (fprintf (current-error-port) "Start:~n") + (fprintf (current-error-port) "Start:\n") (print-board board (current-error-port))) (let* ([go (lambda (i) (set! RECURSION-DEPTH i) @@ -292,7 +292,7 @@ (go depth) (use-up-time go))]) '(when (pair? (car result)) - (fprintf (current-error-port) "we ~a~n" + (fprintf (current-error-port) "we ~a\n" (if (= (caar result) LOSER-GOODNESS) "lose" "win"))) diff --git a/collects/games/same/same.rkt b/collects/games/same/same.rkt index 38a8f6d322..b346afc4a9 100644 --- a/collects/games/same/same.rkt +++ b/collects/games/same/same.rkt @@ -318,7 +318,7 @@ (loop (- i 1))])) (set! biggest-so-far (max biggest-so-far (calc-score answer))) (set! tests (+ tests 1)) - (printf "tests: ~a sofar: ~a largest connected region: ~a score ~a~n" + (printf "tests: ~a sofar: ~a largest connected region: ~a score ~a\n" tests biggest-so-far answer diff --git a/collects/graphics/value-turtles.rkt b/collects/graphics/value-turtles.rkt index 0ed4c8e5d5..3af1784142 100644 --- a/collects/graphics/value-turtles.rkt +++ b/collects/graphics/value-turtles.rkt @@ -44,7 +44,7 @@ [(struct:line) make-line] [(struct:merge) make-tmerge] [(struct:turtles/offset) make-turtles/offset] - [else (error 'vec->struc "unknown structure: ~s~n" sexp)]) + [else (error 'vec->struc "unknown structure: ~s\n" sexp)]) (map vec->struc (vector-ref sexp 1)))] [else sexp])) diff --git a/collects/gui-debugger/debug-tool.rkt b/collects/gui-debugger/debug-tool.rkt index 348d5e76f6..a019a1173d 100644 --- a/collects/gui-debugger/debug-tool.rkt +++ b/collects/gui-debugger/debug-tool.rkt @@ -866,7 +866,7 @@ (define/public (print-to-console v) ;; ==drscheme eventspace thread== ;; only when a user thread is suspended - (do-in-user-thread (lambda () (fprintf (current-error-port) " ### DEBUGGER: ~s~n" v)))) + (do-in-user-thread (lambda () (fprintf (current-error-port) " ### DEBUGGER: ~s\n" v)))) (define (frame->end-breakpoint-status frame) (let/ec k @@ -1098,7 +1098,7 @@ (for-each (lambda (name/value) (let ([name (format "~a" (syntax-e (first name/value)))] - [value (format " => ~s~n" (second name/value))]) + [value (format " => ~s\n" (second name/value))]) (send variables-text insert name) (send variables-text change-style bold-sd (- (send variables-text last-position) (string-length name)) @@ -1135,7 +1135,7 @@ (unless already-stopped? (send stack-frames delete 0 (send stack-frames last-position)) (for-each (lambda (trimmed-expr) - (send stack-frames insert (format "~a~n" trimmed-expr))) + (send stack-frames insert (format "~a\n" trimmed-expr))) trimmed-exprs)) (send stack-frames change-style normal-sd 0 (send stack-frames last-position)) (send stack-frames change-style bold-sd diff --git a/collects/gui-debugger/marks.rkt b/collects/gui-debugger/marks.rkt index 2b881e18d9..3488fb2ca9 100644 --- a/collects/gui-debugger/marks.rkt +++ b/collects/gui-debugger/marks.rkt @@ -123,11 +123,11 @@ (define (display-mark mark) (apply string-append - (format "source: ~a~n" (mz:syntax-object->datum (mark-source mark))) - (format "label: ~a~n" (mark-label mark)) - (format "bindings:~n") + (format "source: ~a\n" (mz:syntax-object->datum (mark-source mark))) + (format "label: ~a\n" (mark-label mark)) + (format "bindings:\n") (map (lambda (binding) - (format " ~a : ~a~n" (syntax-e (mark-binding-binding binding)) + (format " ~a : ~a\n" (syntax-e (mark-binding-binding binding)) (mark-binding-value binding))) (mark-bindings mark)))) @@ -152,7 +152,7 @@ (lookup-first-binding (lambda (id2) (mz:module-identifier=? id id2)) mark-list (lambda () - (error 'lookup-binding "variable not found in environment: ~a~n" (if (syntax? id) + (error 'lookup-binding "variable not found in environment: ~a\n" (if (syntax? id) (mz:syntax-object->datum id) id)))))) diff --git a/collects/htdp/convert.rkt b/collects/htdp/convert.rkt index 98e0d92231..ba538fe1d0 100644 --- a/collects/htdp/convert.rkt +++ b/collects/htdp/convert.rkt @@ -213,11 +213,11 @@ (cond [(or (eof-object? ans) (eq? ans 'x)) (void)] [(not (number? ans)) - (printf "The input must be a number. Given: ~s~n" ans) (repl)] + (printf "The input must be a number. Given: ~s\n" ans) (repl)] [(number? ans) (let ([res (f ans)]) (if (number? res) - (printf "~sF corresponds to ~sC~n" ans res) + (printf "~sF corresponds to ~sC\n" ans res) (error 'convert OUT-ERROR res)) (repl))] [else (error 'convert "can't happen")]))))) @@ -236,10 +236,10 @@ (cond [(eof-object? in) (void)] [(number? in) (begin (check-and-print (f in)) (read-until-eof))] - [else (error 'convert "The input must be a number. Given: ~e~n" in)]))) + [else (error 'convert "The input must be a number. Given: ~e\n" in)]))) (define (check-and-print out) (cond - [(number? out) (printf "~s~n" out)] + [(number? out) (printf "~s\n" out)] [else (error 'convert OUT-ERROR out)]))) read-until-eof)) diff --git a/collects/htdp/error.rkt b/collects/htdp/error.rkt index 674fb5c40d..73e9d20acd 100644 --- a/collects/htdp/error.rkt +++ b/collects/htdp/error.rkt @@ -73,7 +73,7 @@ ;; Symbol (union true String) String X -> void (define (check-list-list pname condition pred given) (when (string? condition) - (tp-error pname (string-append condition (format "~nin ~e" given))))) + (tp-error pname (string-append condition (format "\nin ~e" given))))) ;; Symbol (_ -> Boolean) String X X *-> X (define (check-result pname pred? expected given . other-given) diff --git a/collects/htdp/guess-gui.rkt b/collects/htdp/guess-gui.rkt index 36ea12ab75..f1f67a55ee 100644 --- a/collects/htdp/guess-gui.rkt +++ b/collects/htdp/guess-gui.rkt @@ -52,7 +52,7 @@ (format "number in 0 ...~s" GUESS) "first" i) '(if (and (number? i) (integer? i) (exact? i) (<= 0 i (sub1 GUESS))) ... - (printf "control: improper index, expected 0 ... ~s~n" GUESS)) + (printf "control: improper index, expected 0 ... ~s\n" GUESS)) (send (list-ref guess-choices (- GUESS i 1)) get-selection)) ;; connect : (button% control-event% -> true) -> true @@ -61,7 +61,7 @@ (define (connect/proc call-back) (check-proc 'connect call-back 2 '1st "2 arguments") (if check-button - (printf "connect: called a second time~n") + (printf "connect: called a second time\n") (begin (set! check-button (make-object button% "Check" guess-panel call-back '(border))) diff --git a/collects/htdp/lkup-gui.rkt b/collects/htdp/lkup-gui.rkt index 979c2dfa8e..aa8f283fd2 100644 --- a/collects/htdp/lkup-gui.rkt +++ b/collects/htdp/lkup-gui.rkt @@ -44,7 +44,7 @@ (define (connect/proc call-back) (check-proc 'connect call-back 2 '1st "2 arguments") (if button - (printf "connect: called a second time~n") + (printf "connect: called a second time\n") (begin (set! button (make-object button% "LookUp" panel call-back '(border))) (send query-tf focus) diff --git a/collects/htdp/master-play.rkt b/collects/htdp/master-play.rkt index 9b172e76bf..b6fa03ef81 100644 --- a/collects/htdp/master-play.rkt +++ b/collects/htdp/master-play.rkt @@ -18,5 +18,5 @@ 'sorry_all_wrong])) (define (go/proc s) - (printf "Have fun playing, ~a~n" s) + (printf "Have fun playing, ~a\n" s) (master compare))) diff --git a/collects/htdp/servlet2.rkt b/collects/htdp/servlet2.rkt index 80f1bd2a32..804f145cb2 100644 --- a/collects/htdp/servlet2.rkt +++ b/collects/htdp/servlet2.rkt @@ -480,7 +480,7 @@ (loop (add1 port-no) (add1 attempts))] [else (error 'get-next-port - "Couldn't find an available port between ~a and ~a~n" + "Couldn't find an available port between ~a and ~a\n" starting-at (+ starting-at max-attempts))])))) ;; the current-server is a (make-parameter (or/c #f a-server)) diff --git a/collects/htdp/tests/convert.rkt b/collects/htdp/tests/convert.rkt index 2208fa73e6..313aa9e310 100644 --- a/collects/htdp/tests/convert.rkt +++ b/collects/htdp/tests/convert.rkt @@ -22,7 +22,7 @@ (define OUT "convert-out.dat") (define (create-convert-in) - (printf "212 32~n-40~n")) + (printf "212 32\n-40\n")) (define (check-convert-out) (and (= (read) 100) diff --git a/collects/htdp/tests/gui.rkt b/collects/htdp/tests/gui.rkt index 94782d6762..2269cf0ecb 100644 --- a/collects/htdp/tests/gui.rkt +++ b/collects/htdp/tests/gui.rkt @@ -14,7 +14,7 @@ (define call-back (lambda (x) (begin - (draw-message msg (format "~s ~s~n" (choice-index chc) (text-contents txt))) + (draw-message msg (format "~s ~s\n" (choice-index chc) (text-contents txt))) (draw-message msg "Bye World")))) (define (destroy x) (hide-window x)) diff --git a/collects/htdp/tests/tester.rkt b/collects/htdp/tests/tester.rkt index 0497b77645..fa094d4980 100644 --- a/collects/htdp/tests/tester.rkt +++ b/collects/htdp/tests/tester.rkt @@ -8,7 +8,7 @@ [(_ form ...) (syntax (with-handlers ([exn? (lambda (e) - (printf "~a~n" (exn-message e)) + (printf "~a\n" (exn-message e)) #t)]) form ... #f))]))) diff --git a/collects/html/html.scrbl b/collects/html/html.scrbl index 5e1f729aec..9bc420dceb 100644 --- a/collects/html/html.scrbl +++ b/collects/html/html.scrbl @@ -84,7 +84,7 @@ Reads HTML from a port, producing an @xexpr compatible with the [(struct h:html-element (attributes)) '()])) - (printf "~s~n" (extract-pcdata an-html))) + (printf "~s\n" (extract-pcdata an-html))) (require 'html-example) ] diff --git a/collects/lang/error.rkt b/collects/lang/error.rkt index 63a9ab265b..f4a79b9219 100644 --- a/collects/lang/error.rkt +++ b/collects/lang/error.rkt @@ -30,7 +30,7 @@ ;; Symbol (union true String) String X -> void (define (check-list-list pname condition pred given) (when (string? condition) - (error pname (string-append condition (format "~nin ~e" given))))) + (error pname (string-append condition (format "\nin ~e" given))))) ;; Symbol (_ -> Boolean) String X -> X (define (check-result pname pred? expected given) diff --git a/collects/macro-debugger/model/reductions-config.rkt b/collects/macro-debugger/model/reductions-config.rkt index 283167af7a..448ad2212b 100644 --- a/collects/macro-debugger/model/reductions-config.rkt +++ b/collects/macro-debugger/model/reductions-config.rkt @@ -249,9 +249,9 @@ (lambda (stx #:allow-nonstx? [allow-nonstx? #f] #:default [default #f]) (let ([replacement (hash-ref table stx #f)]) (if replacement - (begin #;(printf " replacing ~s with ~s~n" stx replacement) + (begin #;(printf " replacing ~s with ~s\n" stx replacement) replacement) - (begin #;(printf " not replacing ~s~n" stx) + (begin #;(printf " not replacing ~s\n" stx) default))))) (define (make-renames-table from0 to0) diff --git a/collects/macro-debugger/model/stx-util.rkt b/collects/macro-debugger/model/stx-util.rkt index def760a675..511437910e 100644 --- a/collects/macro-debugger/model/stx-util.rkt +++ b/collects/macro-debugger/model/stx-util.rkt @@ -36,10 +36,10 @@ [old-parts (stx->list old-expr)]) ;; FIXME (unless (= (length new-parts) (length old-parts)) - (printf "** syntax/restamp~n~s~n" (quote-syntax #,stx)) - (printf "pattern : ~s~n" (syntax->datum #'(pa (... ...)))) - (printf "old parts: ~s~n" (map syntax->datum old-parts)) - (printf "new parts: ~s~n" (map syntax->datum new-parts))) + (printf "** syntax/restamp\n~s\n" (quote-syntax #,stx)) + (printf "pattern : ~s\n" (syntax->datum #'(pa (... ...)))) + (printf "old parts: ~s\n" (map syntax->datum old-parts)) + (printf "new parts: ~s\n" (map syntax->datum new-parts))) (d->so old-expr (map (lambda (new old) (syntax/restamp pa new old)) @@ -49,10 +49,10 @@ ;; FIXME #'(begin (unless (and (stx-pair? new-expr) (stx-pair? old-expr)) - (printf "** syntax/restamp~n~s~n" (quote-syntax #,stx)) - (printf "pattern : ~s~n" (syntax->datum (quote-syntax (pa . pb)))) - (printf "old parts: ~s~n" old-expr) - (printf "new parts: ~s~n" new-expr)) + (printf "** syntax/restamp\n~s\n" (quote-syntax #,stx)) + (printf "pattern : ~s\n" (syntax->datum (quote-syntax (pa . pb)))) + (printf "old parts: ~s\n" old-expr) + (printf "new parts: ~s\n" new-expr)) (let ([na (stx-car new-expr)] [nb (stx-cdr new-expr)] [oa (stx-car old-expr)] diff --git a/collects/macro-debugger/model/trace-raw.rkt b/collects/macro-debugger/model/trace-raw.rkt index 40615d6fe8..3e932226d1 100644 --- a/collects/macro-debugger/model/trace-raw.rkt +++ b/collects/macro-debugger/model/trace-raw.rkt @@ -18,7 +18,7 @@ (define val (cdr sig+val)) (define t (tokenize sig val pos)) (send browser add-text - (format "Signal: ~s: ~s~n" + (format "Signal: ~s: ~s\n" pos (token-name (position-token-token t)))) (when val diff --git a/collects/macro-debugger/model/trace.rkt b/collects/macro-debugger/model/trace.rkt index 5f509e58bf..64b84d52fc 100644 --- a/collects/macro-debugger/model/trace.rkt +++ b/collects/macro-debugger/model/trace.rkt @@ -50,7 +50,7 @@ [val (cdr sig+val)] [t (tokenize sig val pos)]) (when (trace-verbose?) - (printf "~s: ~s~n" pos + (printf "~s: ~s\n" pos (token-name (position-token-token t)))) (set! pos (add1 pos)) t)))) diff --git a/collects/macro-debugger/syntax-browser/properties.rkt b/collects/macro-debugger/syntax-browser/properties.rkt index 2d0a48299b..e4705fab4b 100644 --- a/collects/macro-debugger/syntax-browser/properties.rkt +++ b/collects/macro-debugger/syntax-browser/properties.rkt @@ -255,19 +255,19 @@ ;; display-kv : any any -> void (define/private (display-kv key value) - (display (format "~a~n" key) key-sd) - (display (format "~s~n~n" value) #f)) + (display (format "~a\n" key) key-sd) + (display (format "~s\n\n" value) #f)) ;; display-subkv : any any -> void (define/public (display-subkv k v) (display (format "~a: " k) sub-key-sd) - (display (format "~a~n" v) #f)) + (display (format "~a\n" v) #f)) (define/public (display-subkv/value k v) (display-subkv k v) #; (begin - (display (format "~a:~n" k) sub-key-sd) + (display (format "~a:\n" k) sub-key-sd) (let* ([value-text (new text:standard-style-list% (auto-wrap #t))] [value-snip (new editor-snip% (editor value-text))] [value-port (make-text-port value-text)]) diff --git a/collects/make/collection-unit.rkt b/collects/make/collection-unit.rkt index bf17a2beac..e4daf3eee2 100644 --- a/collects/make/collection-unit.rkt +++ b/collects/make/collection-unit.rkt @@ -17,7 +17,7 @@ (export make:collection^) (define (make-collection collection-name collection-files argv) - (printf "building collection ~a: ~a~n" collection-name collection-files) + (printf "building collection ~a: ~a\n" collection-name collection-files) (let* ([zo-compiler #f] [src-dir (current-directory)] [sses (sort collection-files diff --git a/collects/make/setup-extension.rkt b/collects/make/setup-extension.rkt index b307668cb7..c256681ff0 100644 --- a/collects/make/setup-extension.rkt +++ b/collects/make/setup-extension.rkt @@ -91,7 +91,7 @@ variant-dir)] [dest-file.so (build-path dest-dir (append-extension-suffix base-file))]) (make-directory* dest-dir) - (printf " Copying ~a~n to ~a~n" file.so dest-file.so) + (printf " Copying ~a\n to ~a\n" file.so dest-file.so) (when (file-exists? dest-file.so) (delete-file dest-file.so)) (copy-file file.so dest-file.so)) diff --git a/collects/meta/drdr/cache.ss b/collects/meta/drdr/cache.ss index 4b41df1e7e..7b224a0bc7 100644 --- a/collects/meta/drdr/cache.ss +++ b/collects/meta/drdr/cache.ss @@ -18,7 +18,7 @@ (case mode [(no-cache) (error 'cache/file "No cache available: ~a" pth)] [(cache always) - #;(printf "cache/file: running ~S for ~a~n" thnk pth) + #;(printf "cache/file: running ~S for ~a\n" thnk pth) (recompute!)]))]) (read-cache pth))])) @@ -85,4 +85,4 @@ [read-cache (path-string? . -> . any/c)] [read-cache* (path-string? . -> . any/c)] [write-cache! (path-string? any/c . -> . void)] - [delete-cache! (path-string? . -> . void)]) \ No newline at end of file + [delete-cache! (path-string? . -> . void)]) diff --git a/collects/meta/drdr/make-archive.ss b/collects/meta/drdr/make-archive.ss index 37f91d3419..12a219f569 100644 --- a/collects/meta/drdr/make-archive.ss +++ b/collects/meta/drdr/make-archive.ss @@ -17,9 +17,9 @@ (define (make-archive rev) (define archive-path (revision-archive rev)) (if (file-exists? archive-path) - (printf "r~a is already archived~n" rev) + (printf "r~a is already archived\n" rev) (local [(define tmp-path (make-temporary-file))] - (printf "Archiving r~a~n" rev) + (printf "Archiving r~a\n" rev) (create-archive tmp-path (revision-dir rev)) (rename-file-or-directory tmp-path archive-path) (archive-directory (revision-log-dir rev)) @@ -42,4 +42,4 @@ (for ([rev (in-list (list-tail all-revisions n))]) (make-archive rev)))] [(single) - (make-archive n)]))) \ No newline at end of file + (make-archive n)]))) diff --git a/collects/meta/drdr/plt-build.ss b/collects/meta/drdr/plt-build.ss index 6cba7fe877..969f45fd7f 100644 --- a/collects/meta/drdr/plt-build.ss +++ b/collects/meta/drdr/plt-build.ss @@ -115,7 +115,7 @@ (thread (lambda () (subprocess-wait the-process) - (printf "Killing parent because wrapper is dead...~n") + (printf "Killing parent because wrapper is dead...\n") (kill-thread parent))))] ; Run without stdin @@ -315,4 +315,4 @@ (safely-delete-directory test-dir)))) (provide/contract - [integrate-revision (exact-nonnegative-integer? . -> . void)]) \ No newline at end of file + [integrate-revision (exact-nonnegative-integer? . -> . void)]) diff --git a/collects/meta/drdr/replay.ss b/collects/meta/drdr/replay.ss index 2176fc512d..891166dd33 100644 --- a/collects/meta/drdr/replay.ss +++ b/collects/meta/drdr/replay.ss @@ -6,17 +6,17 @@ (define replay-event (match-lambda [(struct stdout (bs)) - (fprintf (current-output-port) "~a~n" bs)] + (fprintf (current-output-port) "~a\n" bs)] [(struct stderr (bs)) - (fprintf (current-error-port) "~a~n" bs)])) + (fprintf (current-error-port) "~a\n" bs)])) (define (replay-status s) (for-each replay-event (status-output-log s)) #;(when (timeout? s) - (fprintf (current-error-port) "[replay-log] TIMEOUT!~n")) + (fprintf (current-error-port) "[replay-log] TIMEOUT!\n")) #;(when (exit? s) - (fprintf (current-error-port) "[replay-log] Exit code: ~a~n" (exit-code s))) - #;(printf "[replay-log] Took ~a~n" + (fprintf (current-error-port) "[replay-log] Exit code: ~a\n" (exit-code s))) + #;(printf "[replay-log] Took ~a\n" (format-duration-ms (status-duration s))) (replay-exit-code s)) @@ -26,4 +26,4 @@ (provide/contract [replay-exit-code (status? . -> . void)] - [replay-status (status? . -> . void)]) \ No newline at end of file + [replay-status (status? . -> . void)]) diff --git a/collects/meta/drdr/scm.ss b/collects/meta/drdr/scm.ss index dc67a65417..8673ff030d 100644 --- a/collects/meta/drdr/scm.ss +++ b/collects/meta/drdr/scm.ss @@ -113,7 +113,7 @@ empty] [(read-commit in-p) => (lambda (c) - (printf "~S~n" c) + (printf "~S\n" c) (list* c (read-commits in-p)))] [else empty])) diff --git a/collects/meta/drdr/set-browser.ss b/collects/meta/drdr/set-browser.ss index 54ef987c9b..6290979c0c 100644 --- a/collects/meta/drdr/set-browser.ss +++ b/collects/meta/drdr/set-browser.ss @@ -1,8 +1,8 @@ #lang scheme -(printf "Setting the default browser to something safe...~n") +(printf "Setting the default browser to something safe...\n") ; XXX maybe have it call /quit (put-preferences '(external-browser) - '(("echo " . ""))) \ No newline at end of file + '(("echo " . ""))) diff --git a/collects/meta/drdr/tests/loud.rkt b/collects/meta/drdr/tests/loud.rkt index e8df11b45f..ee4a306e66 100644 --- a/collects/meta/drdr/tests/loud.rkt +++ b/collects/meta/drdr/tests/loud.rkt @@ -6,6 +6,6 @@ (fprintf (if (even? i) (current-error-port) (current-output-port)) - "~a~n" + "~a\n" i)) diff --git a/collects/meta/drdr/time-file.ss b/collects/meta/drdr/time-file.ss index a61ddac9f4..4d335ace82 100644 --- a/collects/meta/drdr/time-file.ss +++ b/collects/meta/drdr/time-file.ss @@ -20,7 +20,7 @@ (define log (read-cache* (build-path (revision-log-dir rev) filename))) (when log - (printf "~S~n" + (printf "~S\n" (list rev (status-duration log) (filter-map @@ -39,7 +39,7 @@ (define data-file (path-timing-log filename)) (with-handlers ([exn:fail? void]) (make-parent-directory data-file)) -(printf "Making log for ~a~n" filename) +(printf "Making log for ~a\n" filename) (if revision (with-output-to-file @@ -53,4 +53,4 @@ (lambda () (init-revisions!) (for ([rev (in-list revisions)]) - (output-for-rev rev))))) \ No newline at end of file + (output-for-rev rev))))) diff --git a/collects/mred/private/afm.rkt b/collects/mred/private/afm.rkt index 53f3afed05..e246b9b934 100644 --- a/collects/mred/private/afm.rkt +++ b/collects/mred/private/afm.rkt @@ -12,7 +12,7 @@ current-ps-cmap-file-paths) (define (report-exn exn) - (log-error (format "PostScript/AFM error: ~a~n" + (log-error (format "PostScript/AFM error: ~a\n" (if (exn? exn) (exn-message exn) exn)))) @@ -508,7 +508,7 @@ (when special-font (let ([name (afm-expand-name special-font-name)]) (hash-set! used-fonts name #t) - (fprintf out "currentfont~n/~a findfont~n~a scalefont setfont~n" + (fprintf out "currentfont\n/~a findfont\n~a scalefont setfont\n" name size))) (if (font-is-cid? (or special-font font)) @@ -545,7 +545,7 @@ (fprintf out "(~a) show\n" bytes))))))) (when special-font ;; Uses result of currentfont above: - (fprintf out "setfont~n"))))]) + (fprintf out "setfont\n"))))]) (fprintf out "0 -~a rmoveto\n" (/ (* size (- (font-height font) (font-descent font))) 1000.0)) (let loop ([l l][simples null][special-font-name #f][special-font #f]) (cond @@ -617,11 +617,11 @@ this-font) (begin ;; Not simple... use glyphshow - (fprintf out "gsave~n/~a findfont~n~a scalefont setfont~n" + (fprintf out "gsave\n/~a findfont\n~a scalefont setfont\n" (afm-expand-name this-font-name) size) (fprintf out "/~a glyphshow\n" (achar-enc achar)) - (fprintf out "grestore~n") + (fprintf out "grestore\n") (loop (cdr l) null #f #f)))))) (lambda () ;; No mapping for the character anywhere. diff --git a/collects/mred/private/misc.rkt b/collects/mred/private/misc.rkt index 62f71937ac..964b66c725 100644 --- a/collects/mred/private/misc.rkt +++ b/collects/mred/private/misc.rkt @@ -30,7 +30,7 @@ (let loop () (let ([l (read-line p)]) (unless (eof-object? l) - (fprintf orig-err "~a~n" l) + (fprintf orig-err "~a\n" l) (loop))))) (lambda () (close-input-port p))))))]) (echo in) diff --git a/collects/mrlib/hierlist.rkt b/collects/mrlib/hierlist.rkt index d42fdcde53..c02b527d4a 100644 --- a/collects/mrlib/hierlist.rkt +++ b/collects/mrlib/hierlist.rkt @@ -22,13 +22,13 @@ (when f (f i))))] [on-select (lambda (i) - (printf "Selected: ~a~n" + (printf "Selected: ~a\n" (if i (send (send i get-editor) get-flattened-text) i)))] [on-double-select (lambda (s) - (printf "Double-click: ~a~n" + (printf "Double-click: ~a\n" (send (send s get-editor) get-flattened-text)))]) (sequence (apply super-init args))) p)) diff --git a/collects/mrlib/private/aligned-pasteboard/alignment.rkt b/collects/mrlib/private/aligned-pasteboard/alignment.rkt index 1e5b78f5fc..2741e5277e 100644 --- a/collects/mrlib/private/aligned-pasteboard/alignment.rkt +++ b/collects/mrlib/private/aligned-pasteboard/alignment.rkt @@ -157,7 +157,7 @@ neck and it is the most readable solution. ($ dim x width stretchable-width?) ($ dim y height stretchable-height?)) others ...) - (printf "(make-rect (make-dim ~s ~s ~s) (make-dim ~s ~s ~s))~n" + (printf "(make-rect (make-dim ~s ~s ~s) (make-dim ~s ~s ~s))\n" x width stretchable-width? y height stretchable-height?) (rect-print others)])) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/debug.rkt b/collects/mrlib/private/aligned-pasteboard/tests/debug.rkt index 32b6b3a77e..3c18771bf4 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/debug.rkt +++ b/collects/mrlib/private/aligned-pasteboard/tests/debug.rkt @@ -26,12 +26,12 @@ (send snip get-margin l t r b) (printf "get-margin: ~sX~s ~sX~s\n" (unbox l) (unbox r) (unbox t) (unbox b))) - (printf "get-max-height: ~s~n" (send snip get-max-height)) - (printf "get-max-width: ~s~n" (send snip get-max-width)) - (printf "get-min-height: ~s~n" (send snip get-min-height)) - (printf "get-min-width: ~s~n" (send snip get-min-width)) - ;(printf "snip-width: ~s~n" (send pasteboard snip-width snip)) - ;(printf "snip-height: ~s~n" (send pasteboard snip-height snip)) + (printf "get-max-height: ~s\n" (send snip get-max-height)) + (printf "get-max-width: ~s\n" (send snip get-max-width)) + (printf "get-min-height: ~s\n" (send snip get-min-height)) + (printf "get-min-width: ~s\n" (send snip get-min-width)) + ;(printf "snip-width: ~s\n" (send pasteboard snip-width snip)) + ;(printf "snip-height: ~s\n" (send pasteboard snip-height snip)) )) ;;debug-pasteboard: -> (void) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl index 95c562091c..03f4a2043d 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl @@ -8,7 +8,7 @@ "../aligned-pasteboard.ss" "../aligned-editor-container.ss") -;; (printf "running tests for pasteboard-lib.ss~n") +;; (printf "running tests for pasteboard-lib.ss\n") ;;pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>)) ;;gets the top most aligned pasteboard in the tree of pasteboards and containers @@ -203,5 +203,5 @@ (send frame show false) ) -(printf "tests done~n") +(printf "tests done\n") |# diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl index 8d1bc282ff..4ce40853ee 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl @@ -8,7 +8,7 @@ "../aligned-editor-container.ss" "test-macro.ss") -;;(printf "running tests for snip-lib.ss~n") +;;(printf "running tests for snip-lib.ss\n") ;;snip-width: ((is-a?/c aligned-pasteboard<%>) (is-a?/c snip%) . -> . number?) ;;the width of a snip in the given pasteboard @@ -205,4 +205,4 @@ (send frame show false) ) -;;(printf "tests done~n") +;;(printf "tests done\n") diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test.rktl index 010479b325..a29d6cde40 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test.rktl @@ -21,7 +21,7 @@ ; ; ; ;;; -(printf "running test1.ss~n") +(printf "running test1.ss\n") (define frame (instantiate frame% () @@ -228,4 +228,4 @@ ) (send frame show false) -(printf "done~n") +(printf "done\n") diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl index 10151a474a..07f2af2dcd 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl @@ -22,7 +22,7 @@ ; ;;; ; -(printf "running test2.ss~n") +(printf "running test2.ss\n") (define frame (instantiate frame% () @@ -186,4 +186,4 @@ ) (send frame show false) -(printf "done~n") +(printf "done\n") diff --git a/collects/mrlib/tab-choice.rkt b/collects/mrlib/tab-choice.rkt index 32ed376147..571b427de6 100644 --- a/collects/mrlib/tab-choice.rkt +++ b/collects/mrlib/tab-choice.rkt @@ -46,7 +46,7 @@ [(left top) 0] [(right bottom) (- total-size item-size)] [else (error 'place-children - "alignment spec is unknown ~a~n" spec)])))]) + "alignment spec is unknown ~a\n" spec)])))]) (map (lambda (l) (let*-values ([(min-width min-height v-stretch? h-stretch?) (apply values l)] diff --git a/collects/mysterx/mxdemo.rkt b/collects/mysterx/mxdemo.rkt index b25d0811c6..cf07b3ad73 100644 --- a/collects/mysterx/mxdemo.rkt +++ b/collects/mysterx/mxdemo.rkt @@ -149,7 +149,7 @@ (let ([count 0]) (lambda (ev) (when (send ev mousemove?) - (printf "mousemove #~a, but who's counting?~n" count) + (printf "mousemove #~a, but who's counting?\n" count) (set! count (add1 count)))))) (define (today-handler ev) @@ -198,7 +198,7 @@ (send ctrldoc find-element "CAPTION" "Caption") (lambda (ev) (when (send ev keypress?) - (printf "ooh that tickles~n")))) + (printf "ooh that tickles\n")))) (for-each (lambda (sym-handler) diff --git a/collects/mysterx/mysterx.rkt b/collects/mysterx/mysterx.rkt index fec0b8e130..ad4e66370a 100644 --- a/collects/mysterx/mysterx.rkt +++ b/collects/mysterx/mysterx.rkt @@ -2450,7 +2450,7 @@ (with-handlers ([void (lambda (e) - (printf "~a~n" (exn-message e)) + (printf "~a\n" (exn-message e)) (loop))]) (mxprims:get-event browser))] [event (make-object mx-event% prim-event)] diff --git a/collects/mzlib/date.rkt b/collects/mzlib/date.rkt index 8e78a0cea0..13ec0e0fa8 100644 --- a/collects/mzlib/date.rkt +++ b/collects/mzlib/date.rkt @@ -289,7 +289,7 @@ (if (<= input test) 'input-smaller 'test-smaller)))]))]) - ; (printf "~a ~a ~a~n" compare secs (date->string date)) + ; (printf "~a ~a ~a\n" compare secs (date->string date)) (cond [(eq? compare 'equal) secs] [(or (= secs below-secs) (= secs above-secs)) @@ -362,4 +362,4 @@ (caddr reversed-digits) (cadr reversed-digits) (car reversed-digits))) - (loop (cdr (cdr (cdr reversed-digits)))))))))))) \ No newline at end of file + (loop (cdr (cdr (cdr reversed-digits)))))))))))) diff --git a/collects/mzlib/integer-set.rkt b/collects/mzlib/integer-set.rkt index ac7bcce4fd..10e8b69554 100644 --- a/collects/mzlib/integer-set.rkt +++ b/collects/mzlib/integer-set.rkt @@ -8,7 +8,7 @@ (let* defs (let ((real-ans code)) (unless (equal? real-ans right-ans) - (printf "Test failed: ~e gave ~e. Expected ~e~n" + (printf "Test failed: ~e gave ~e. Expected ~e\n" 'code real-ans 'right-ans))) ...)))) (define-syntax test-block diff --git a/collects/mzlib/restart.rkt b/collects/mzlib/restart.rkt index 07e952f330..002832292d 100644 --- a/collects/mzlib/restart.rkt +++ b/collects/mzlib/restart.rkt @@ -17,8 +17,8 @@ [print-error (lambda (e) (if (exn? e) - (fprintf (current-error-port) "~a~n" (exn-message e)) - (fprintf (current-error-port) "Exception in init file: ~e~n" e)))] + (fprintf (current-error-port) "~a\n" (exn-message e)) + (fprintf (current-error-port) "Exception in init file: ~e\n" e)))] [beginize (lambda (l) (string-append "(begin " diff --git a/collects/mzlib/thread.rkt b/collects/mzlib/thread.rkt index 5ce3aa4290..4c4d00585a 100644 --- a/collects/mzlib/thread.rkt +++ b/collects/mzlib/thread.rkt @@ -115,7 +115,7 @@ ;; coroutine : ((bool ->) -> X) -> X-coroutine-object (define (coroutine f) - ;;(printf "2. new coroutine~n") + ;;(printf "2. new coroutine\n") (let* ([can-stop-lock (make-semaphore 1)] [done-ch (make-channel)] [ex-ch (make-channel)] @@ -123,7 +123,7 @@ [stop-enabled? #t] [enable-stop (lambda (enable?) - ;;(printf "3. enabling ~a~n" enable?) + ;;(printf "3. enabling ~a\n" enable?) (cond [(and enable? (not stop-enabled?)) (semaphore-post can-stop-lock) @@ -131,11 +131,11 @@ [(and (not enable?) stop-enabled?) (semaphore-wait can-stop-lock) (set! stop-enabled? #f)]) - ;;(printf "3. finished enabling~n") + ;;(printf "3. finished enabling\n") )] [tid (thread (lambda () (semaphore-wait proceed-sema) - ;;(printf "3. creating coroutine thread~n") + ;;(printf "3. creating coroutine thread\n") (with-handlers ([(lambda (exn) #t) (lambda (exn) (enable-stop #t) @@ -152,7 +152,7 @@ (if (coroutine-object-worker w) (let ([can-stop-lock (coroutine-object-can-stop-lock w)] [worker (coroutine-object-worker w)]) - #;(printf "2. starting coroutine~n") + #;(printf "2. starting coroutine\n") (thread-resume worker) (dynamic-wind void @@ -162,20 +162,20 @@ timeout (alarm-evt (+ timeout (current-inexact-milliseconds)))) (lambda (x) - #;(printf "2. alarm-evt~n") + #;(printf "2. alarm-evt\n") (semaphore-wait can-stop-lock) (thread-suspend worker) (semaphore-post can-stop-lock) #f)) (wrap-evt (coroutine-object-done-ch w) (lambda (res) - #;(printf "2. coroutine-done-evt~n") + #;(printf "2. coroutine-done-evt\n") (set-coroutine-object-result! w res) (coroutine-kill w) #t)) (wrap-evt (coroutine-object-ex-ch w) (lambda (exn) - #;(printf "2. ex-evt~n") + #;(printf "2. ex-evt\n") (coroutine-kill w) (raise exn)))))) ;; In case we escape through a break: diff --git a/collects/mzlib/traceld.rkt b/collects/mzlib/traceld.rkt index f4a3f20c67..4d929fa339 100644 --- a/collects/mzlib/traceld.rkt +++ b/collects/mzlib/traceld.rkt @@ -8,7 +8,7 @@ (lambda (load) (lambda (filename expected-module) (fprintf ep - "~aloading ~a at ~a~n" + "~aloading ~a at ~a\n" tab filename (current-process-milliseconds)) (begin0 (let ([s tab]) @@ -18,7 +18,7 @@ (load filename expected-module)) (lambda () (set! tab s)))) (fprintf ep - "~adone ~a at ~a~n" + "~adone ~a at ~a\n" tab filename (current-process-milliseconds)))))]) (current-load (mk-chain load)) (current-load-extension (mk-chain load-extension)))) diff --git a/collects/parser-tools/examples/calc.rkt b/collects/parser-tools/examples/calc.rkt index 7741fea757..71b9f7f031 100644 --- a/collects/parser-tools/examples/calc.rkt +++ b/collects/parser-tools/examples/calc.rkt @@ -82,7 +82,7 @@ (lambda () (let ((result (calcp (lambda () (calcl ip))))) (when result - (printf "~a~n" result) + (printf "~a\n" result) (one-line)))))) (one-line))) diff --git a/collects/parser-tools/lex.rkt b/collects/parser-tools/lex.rkt index c6ec59a662..279287553d 100644 --- a/collects/parser-tools/lex.rkt +++ b/collects/parser-tools/lex.rkt @@ -113,7 +113,7 @@ (let ((next-check (vector-ref next 1))) (or (>= next-check max-char-num) (loop (add1 next-check) (cdr nexts)))))))))) - (printf "Warning: lexer at ~a can accept the empty string.~n" stx))) + (printf "Warning: lexer at ~a can accept the empty string.\n" stx))) (with-syntax ((start-state-stx start) (trans-table-stx trans) (no-lookahead-stx no-look) @@ -230,7 +230,7 @@ (lambda (ip) (let ((first-pos (get-position ip)) (first-char (peek-char-or-special ip 0))) - ;(printf "(peek-char-or-special port 0) = ~e~n" first-char) + ;(printf "(peek-char-or-special port 0) = ~e\n" first-char) (cond ((eof-object? first-char) (do-match ip first-pos eof-action (read-char-or-special ip))) @@ -279,7 +279,7 @@ (let* ((act (vector-ref actions next-state)) (next-length-bytes (+ (char-utf-8-length char) length-bytes)) (next-char (peek-char-or-special ip next-length-bytes))) - #;(printf "(peek-char-or-special port ~e) = ~e~n" + #;(printf "(peek-char-or-special port ~e) = ~e\n" next-length-bytes next-char) (lexer-loop next-state next-char @@ -312,13 +312,13 @@ (position-offset first-pos) (- (position-offset end-pos) (position-offset first-pos))))) (let ((match (read-string longest-match-length lb))) - ;(printf "(read-string ~e port) = ~e~n" longest-match-length match) + ;(printf "(read-string ~e port) = ~e\n" longest-match-length match) (do-match lb first-pos longest-match-action match))) (define file-path (make-parameter #f)) (define (do-match ip first-pos action value) - #;(printf "(action ~a ~a ~a ~a)~n" + #;(printf "(action ~a ~a ~a ~a)\n" (position-offset first-pos) (position-offset (get-position ip)) value ip) (action first-pos (get-position ip) value ip)) diff --git a/collects/parser-tools/private-lex/deriv.rkt b/collects/parser-tools/private-lex/deriv.rkt index 808d9fd351..e398d4fdc4 100644 --- a/collects/parser-tools/private-lex/deriv.rkt +++ b/collects/parser-tools/private-lex/deriv.rkt @@ -281,13 +281,13 @@ (else (loop old-states new-states all-states (cdr cs)))))))))) (define (print-dfa x) - (printf "number of states: ~a~n" (dfa-num-states x)) - (printf "start state: ~a~n" (dfa-start-state x)) - (printf "final states: ~a~n" (map car (dfa-final-states/actions x))) + (printf "number of states: ~a\n" (dfa-num-states x)) + (printf "start state: ~a\n" (dfa-start-state x)) + (printf "final states: ~a\n" (map car (dfa-final-states/actions x))) (for-each (lambda (trans) - (printf "state: ~a~n" (car trans)) + (printf "state: ~a\n" (car trans)) (for-each (lambda (rule) - (printf " -~a-> ~a~n" + (printf " -~a-> ~a\n" (is:integer-set-contents (car rule)) (cdr rule))) (cdr trans))) diff --git a/collects/parser-tools/private-lex/front.rkt b/collects/parser-tools/private-lex/front.rkt index e6bf96eccb..da190e10c2 100644 --- a/collects/parser-tools/private-lex/front.rkt +++ b/collects/parser-tools/private-lex/front.rkt @@ -170,7 +170,7 @@ (vector->list x)))) (vector->list table)) (length (hash-table-map ht cons))))) - (printf "~a states, ~aKB~n" + (printf "~a states, ~aKB\n" num-states (/ (* 4.0 (+ 2 num-states (* 2 num-vectors) num-entries (* 5 num-different-entries))) 1024))) diff --git a/collects/parser-tools/private-lex/util.rkt b/collects/parser-tools/private-lex/util.rkt index d63f03a5a6..29c401795f 100644 --- a/collects/parser-tools/private-lex/util.rkt +++ b/collects/parser-tools/private-lex/util.rkt @@ -14,7 +14,7 @@ (let* defs (let ((real-ans code)) (unless (equal? real-ans right-ans) - (printf "Test failed: ~e gave ~e. Expected ~e~n" + (printf "Test failed: ~e gave ~e. Expected ~e\n" 'code real-ans 'right-ans))) ...)))) (define-syntax test-block diff --git a/collects/parser-tools/private-yacc/lalr.rkt b/collects/parser-tools/private-yacc/lalr.rkt index 33df94e98b..4585c56aef 100644 --- a/collects/parser-tools/private-yacc/lalr.rkt +++ b/collects/parser-tools/private-yacc/lalr.rkt @@ -149,14 +149,14 @@ (print-input-st-prod l "LA" a g print-output-terms)) (define (print-input-st-sym f name a g print-output) - (printf "~a:~n" name) + (printf "~a:\n" name) (send a for-each-state (lambda (state) (for-each (lambda (non-term) (let ((res (f (make-trans-key state non-term)))) (if (not (null? res)) - (printf "~a(~a, ~a) = ~a~n" + (printf "~a(~a, ~a) = ~a\n" name state (gram-sym-symbol non-term) @@ -165,7 +165,7 @@ (newline)) (define (print-input-st-prod f name a g print-output) - (printf "~a:~n" name) + (printf "~a:\n" name) (send a for-each-state (lambda (state) (for-each @@ -174,7 +174,7 @@ (lambda (prod) (let ((res (f state prod))) (if (not (null? res)) - (printf "~a(~a, ~a) = ~a~n" + (printf "~a(~a, ~a) = ~a\n" name (kernel-index state) (prod-index prod) diff --git a/collects/parser-tools/private-yacc/lr0.rkt b/collects/parser-tools/private-yacc/lr0.rkt index 0242beef7c..6cc5460e2a 100644 --- a/collects/parser-tools/private-yacc/lr0.rkt +++ b/collects/parser-tools/private-yacc/lr0.rkt @@ -167,7 +167,7 @@ ;; build-LR0-automaton: grammar -> LR0-automaton ;; Constructs the kernels of the sets of LR(0) items of g (define (build-lr0-automaton grammar) -; (printf "LR(0) automaton:~n") +; (printf "LR(0) automaton:\n") (letrec ( (epsilons (make-hash-table 'equal)) (grammar-symbols (append (send grammar get-non-terms) @@ -304,7 +304,7 @@ (set! automaton-non-term (cons (cons (make-trans-key kernel gs) unique-kernel) automaton-non-term)))) - #;(printf "~a -> ~a on ~a~n" + #;(printf "~a -> ~a on ~a\n" (kernel->string kernel) (kernel->string unique-kernel) (gram-sym-symbol gs)) diff --git a/collects/parser-tools/private-yacc/parser-builder.rkt b/collects/parser-tools/private-yacc/parser-builder.rkt index 3830b67c40..3b0c09600d 100644 --- a/collects/parser-tools/private-yacc/parser-builder.rkt +++ b/collects/parser-tools/private-yacc/parser-builder.rkt @@ -91,9 +91,9 @@ (hash-table-put! ht x #t))) (map cdr (apply append (vector->list table)))) (length (hash-table-map ht void))))) - (printf "~a states, ~a grammar symbols, ~a hash-table entries, ~a reduces~n" + (printf "~a states, ~a grammar symbols, ~a hash-table entries, ~a reduces\n" num-states num-gram-syms num-ht-entries num-reduces) - (printf "~a -- ~aKB, previously ~aKB~n" + (printf "~a -- ~aKB, previously ~aKB\n" (/ (+ 2 num-states (* 4 num-states) (* 2 1.5 num-ht-entries) (* 5 num-reduces)) 256.0) diff --git a/collects/parser-tools/private-yacc/table.rkt b/collects/parser-tools/private-yacc/table.rkt index 513a27672f..c706db16a3 100644 --- a/collects/parser-tools/private-yacc/table.rkt +++ b/collects/parser-tools/private-yacc/table.rkt @@ -97,16 +97,16 @@ (for-each (lambda (prod) (fprintf port - "~a\t~a\t=\t~a~n" + "~a\t~a\t=\t~a\n" (prod-index prod) (gram-sym-symbol (prod-lhs prod)) (map gram-sym-symbol (vector->list (prod-rhs prod))))) prods) (send a for-each-state (lambda (state) - (fprintf port "State ~a~n" (kernel-index state)) + (fprintf port "State ~a\n" (kernel-index state)) (for-each (lambda (item) - (fprintf port "\t~a~n" (item->string item))) + (fprintf port "\t~a\n" (item->string item))) (kernel-items state)) (newline port) (for-each @@ -118,22 +118,22 @@ ((null? (cdr act)) (print-entry sym (car act) port)) (else - (fprintf port "begin conflict:~n") + (fprintf port "begin conflict:\n") (when (> (count reduce? act) 1) (set! RR-conflicts (add1 RR-conflicts))) (when (> (count shift? act) 0) (set! SR-conflicts (add1 SR-conflicts))) (map (lambda (x) (print-entry sym x port)) act) - (fprintf port "end conflict~n"))))) + (fprintf port "end conflict\n"))))) (vector-ref grouped-table (kernel-index state))) (newline port))) (when (> SR-conflicts 0) - (fprintf port "~a shift/reduce conflict~a~n" + (fprintf port "~a shift/reduce conflict~a\n" SR-conflicts (if (= SR-conflicts 1) "" "s"))) (when (> RR-conflicts 0) - (fprintf port "~a reduce/reduce conflict~a~n" + (fprintf port "~a reduce/reduce conflict~a\n" RR-conflicts (if (= RR-conflicts 1) "" "s"))))) @@ -159,7 +159,7 @@ (loop (car rest) (cdr rest))) ((accept? (car rest)) (fprintf (current-error-port) - "accept/reduce or accept/shift conflicts. Check the grammar for useless cycles of productions~n") + "accept/reduce or accept/shift conflicts. Check the grammar for useless cycles of productions\n") (loop current-guess (cdr rest))) (else (loop current-guess (cdr rest))))))))) @@ -180,12 +180,12 @@ (unless suppress (when (> SR-conflicts 0) (fprintf (current-error-port) - "~a shift/reduce conflict~a~n" + "~a shift/reduce conflict~a\n" SR-conflicts (if (= SR-conflicts 1) "" "s"))) (when (> RR-conflicts 0) (fprintf (current-error-port) - "~a reduce/reduce conflict~a~n" + "~a reduce/reduce conflict~a\n" RR-conflicts (if (= RR-conflicts 1) "" "s")))) table)) diff --git a/collects/parser-tools/private-yacc/yacc-helper.rkt b/collects/parser-tools/private-yacc/yacc-helper.rkt index 2d66fd47ee..128968e820 100644 --- a/collects/parser-tools/private-yacc/yacc-helper.rkt +++ b/collects/parser-tools/private-yacc/yacc-helper.rkt @@ -74,7 +74,7 @@ (car rhs)) (if (= 3 (length rhs)) (p "%prec ~a" (cadadr rhs))) - (p "~n")))) + (p "\n")))) (for-each (lambda (t) (for-each @@ -86,7 +86,7 @@ (lambda (t) (for-each (lambda (t) - (p "%token ~a~n" t) + (p "%token ~a\n" t) (hash-table-put! term-table t (format "~a" t))) (syntax-object->datum (terminals-def-t t)))) terms) @@ -96,10 +96,10 @@ (for-each (lambda (tok) (p " ~a" (hash-table-get term-table tok))) (cdr prec)) - (p "~n")) + (p "\n")) precs)) - (p "%start ~a~n" start) - (p "%%~n") + (p "%start ~a\n" start) + (p "%%\n") (for-each (lambda (prod) (let ((nt (car prod))) @@ -109,9 +109,9 @@ (p "| ") (display-rhs rhs)) (cddr prod)) - (p ";~n"))) + (p ";\n"))) grammar) - (p "%%~n")))) + (p "%%\n")))) ) diff --git a/collects/parser-tools/yacc.rkt b/collects/parser-tools/yacc.rkt index 09ba0c91d4..b26c711ce2 100644 --- a/collects/parser-tools/yacc.rkt +++ b/collects/parser-tools/yacc.rkt @@ -174,7 +174,7 @@ (lambda (e) (fprintf (current-error-port) - "Cannot write yacc-output to file \"~a\"~n" + "Cannot write yacc-output to file \"~a\"\n" yacc-output)))] (call-with-output-file yacc-output (lambda (port) @@ -271,14 +271,14 @@ (let ((a (find-action stack tok val start-pos end-pos))) (cond ((runtime-shift? a) - ;; (printf "shift:~a~n" (runtime-shift-state a)) + ;; (printf "shift:~a\n" (runtime-shift-state a)) (cons (make-stack-frame (runtime-shift-state a) val start-pos end-pos) stack)) (else - ;; (printf "discard input:~a~n" tok) + ;; (printf "discard input:~a\n" tok) (let-values (((tok val start-pos end-pos) (extract (get-token)))) (remove-input tok val start-pos end-pos)))))))) @@ -286,7 +286,7 @@ (let ((a (find-action stack 'error #f start-pos end-pos))) (cond ((runtime-shift? a) - ;; (printf "shift:~a~n" (runtime-shift-state a)) + ;; (printf "shift:~a\n" (runtime-shift-state a)) (set! stack (cons (make-stack-frame (runtime-shift-state a) @@ -296,7 +296,7 @@ stack)) (remove-input tok val start-pos end-pos)) (else - ;; (printf "discard state:~a~n" (car stack)) + ;; (printf "discard state:~a\n" (car stack)) (cond ((< (length stack) 2) (raise-read-error "parser: Cannot continue after error" @@ -330,7 +330,7 @@ (let ((action (find-action stack tok val start-pos end-pos))) (cond ((runtime-shift? action) - ;; (printf "shift:~a~n" (runtime-shift-state action)) + ;; (printf "shift:~a\n" (runtime-shift-state action)) (parsing-loop (cons (make-stack-frame (runtime-shift-state action) val start-pos @@ -338,7 +338,7 @@ stack) (get-token))) ((runtime-reduce? action) - ;; (printf "reduce:~a~n" (runtime-reduce-prod-num action)) + ;; (printf "reduce:~a\n" (runtime-reduce-prod-num action)) (let-values (((new-stack args) (reduce-stack stack (runtime-reduce-rhs-length action) @@ -367,7 +367,7 @@ new-stack) ip)))) ((runtime-accept? action) - ;; (printf "accept~n") + ;; (printf "accept\n") (stack-frame-value (car stack))) (else (if src-pos diff --git a/collects/plai/mutator.rkt b/collects/plai/mutator.rkt index 0200d8265a..0cf24939f7 100644 --- a/collects/plai/mutator.rkt +++ b/collects/plai/mutator.rkt @@ -265,10 +265,10 @@ [(result-addr) (cond [(procedure? result-addr) - (printf "Imported procedure~n") + (printf "Imported procedure\n") result-addr] [(location? result-addr) - (printf "Value at location ~a:~n" result-addr) + (printf "Value at location ~a:\n" result-addr) (gc->scheme result-addr)])])))])) ; Module Begin @@ -304,7 +304,7 @@ (when (gui-available?) (if (<= (#%datum . heap-size) 500) (set-ui! (dynamic-require `plai/private/gc-gui 'heap-viz%)) - (printf "Large heap; the heap visualizer will not be displayed.~n"))) + (printf "Large heap; the heap visualizer will not be displayed.\n"))) (init-allocator))))] [_ (raise-syntax-error 'mutator "Mutator must start with an 'allocator-setup' expression, such as: (allocator-setup )" @@ -520,4 +520,4 @@ [(_ mutator-expr scheme-datum) (quasisyntax/loc stx (mutator-let ([v1 mutator-expr]) - (test (gc->scheme v1) (expand-scheme scheme-datum))))])) \ No newline at end of file + (test (gc->scheme v1) (expand-scheme scheme-datum))))])) diff --git a/collects/redex/examples/arithmetic.rkt b/collects/redex/examples/arithmetic.rkt index 55aba950d5..5da73f4041 100644 --- a/collects/redex/examples/arithmetic.rkt +++ b/collects/redex/examples/arithmetic.rkt @@ -56,4 +56,4 @@ print?)) (when print-name? - (printf "Traces are in ~a~n" traces-file)) + (printf "Traces are in ~a\n" traces-file)) diff --git a/collects/redex/examples/r6rs/r6rs-tests.rkt b/collects/redex/examples/r6rs/r6rs-tests.rkt index c91006e845..54811effaf 100644 --- a/collects/redex/examples/r6rs/r6rs-tests.rkt +++ b/collects/redex/examples/r6rs/r6rs-tests.rkt @@ -44,7 +44,7 @@ (set! failed-tests (+ failed-tests 1)) (unless verbose? (printf "\ntesting ~s ... " t)) - (printf "TEST FAILED!~nexpected:~a\nrewritten-received:~a\nreceived:~a\n\n" + (printf "TEST FAILED!\nexpected:~a\nrewritten-received:~a\nreceived:~a\n\n" (combine-in-lines expected) (combine-in-lines rewritten-results) (combine-in-lines results)))))))) @@ -2117,4 +2117,4 @@ of digits with deconv-base ;; names thru the term, and then the results from the test are ;; compared with equal? to the elements of `expected' - (struct-out r6test)) \ No newline at end of file + (struct-out r6test)) diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt index 58483b1ef3..c31021c900 100644 --- a/collects/scribble/html-render.rkt +++ b/collects/scribble/html-render.rkt @@ -1046,7 +1046,7 @@ (begin (when #f (fprintf (current-error-port) - "Undefined link: ~s~n" + "Undefined link: ~s\n" (tag-key (link-element-tag e) ri))) `((font ([class "badlink"]) ,@(if (empty-content? (element-content e)) diff --git a/collects/scribblings/guide/contracts-intro.scrbl b/collects/scribblings/guide/contracts-intro.scrbl index ddeaf3b0eb..98f19629bf 100644 --- a/collects/scribblings/guide/contracts-intro.scrbl +++ b/collects/scribblings/guide/contracts-intro.scrbl @@ -143,9 +143,9 @@ Of course, this breaks assignment to the provided variable. (module b racket (require a) - (printf "~s~n" amount) + (printf "~s\n" amount) (do-it) - (printf "~s~n" amount)) + (printf "~s\n" amount)) (require b) diff --git a/collects/scribblings/places/places.scrbl b/collects/scribblings/places/places.scrbl index 032ff72af4..c8fb1496be 100644 --- a/collects/scribblings/places/places.scrbl +++ b/collects/scribblings/places/places.scrbl @@ -74,7 +74,7 @@ This code launches two places, echos a message to them and then waits for the pl (for ([i (in-range 2)] [p pls]) (place-channel-send p i) - (printf "~a~n" (place-channel-recv p))) + (printf "~a\n" (place-channel-recv p))) (map place-wait pls)) ] diff --git a/collects/scribblings/reference/write.scrbl b/collects/scribblings/reference/write.scrbl index b381b07316..2ea2feddf0 100644 --- a/collects/scribblings/reference/write.scrbl +++ b/collects/scribblings/reference/write.scrbl @@ -142,7 +142,7 @@ supplied than are used by the format string, the @examples[ (fprintf (current-output-port) - "~a as a string is ~s.~n" + "~a as a string is ~s.\n" '(3 4) "(3 4)") ]} @@ -163,7 +163,7 @@ Formats to a string. The result is the same as ] @examples[ -(format "~a as a string is ~s.~n" '(3 4) "(3 4)") +(format "~a as a string is ~s.\n" '(3 4) "(3 4)") ]} @defboolparam[print-pair-curly-braces on?]{ diff --git a/collects/sgl/gl.rkt b/collects/sgl/gl.rkt index 8f377ae9ae..6cf4739f24 100644 --- a/collects/sgl/gl.rkt +++ b/collects/sgl/gl.rkt @@ -30,7 +30,7 @@ (define-foreign-lib lib name type ... -> _void)] [(_ lib name type ...) (begin - ;; (printf "~a~n" 'name) + ;; (printf "~a\n" 'name) (provide name) (define name (get-ffi-obj 'name lib (_fun* type ...) (unavailable 'name))))])) diff --git a/collects/tests/aligned-pasteboard/test-snip-lib.rktl b/collects/tests/aligned-pasteboard/test-snip-lib.rktl index 40d6c1c907..7ce3e7dbfe 100644 --- a/collects/tests/aligned-pasteboard/test-snip-lib.rktl +++ b/collects/tests/aligned-pasteboard/test-snip-lib.rktl @@ -7,8 +7,8 @@ mrlib/private/aligned-pasteboard/aligned-pasteboard mrlib/private/aligned-pasteboard/aligned-editor-container) -(printf "running tests for snip-lib.ss~n") - +(printf "running tests for snip-lib.ss\n") + ;;snip-min-width: ((is-a?/c snip%) . -> . number?) ;;the width of a snip in the given pasteboard (let* diff --git a/collects/tests/drracket/drracket-test-util.rkt b/collects/tests/drracket/drracket-test-util.rkt index 97644bd251..b7a6bff21c 100644 --- a/collects/tests/drracket/drracket-test-util.rkt +++ b/collects/tests/drracket/drracket-test-util.rkt @@ -105,7 +105,7 @@ (or (wait-for-drscheme-frame-pred) (begin (when print-message? - (printf "Select DrRacket frame~n")) + (printf "Select DrRacket frame\n")) (poll-until wait-for-drscheme-frame-pred))))) ;; wait-for-new-frame : frame [(listof eventspace) = null] -> frame @@ -529,7 +529,7 @@ [else (loop (send snip previous) - (cons (format "{unknown snip: ~e}~n" snip) + (cons (format "{unknown snip: ~e}\n" snip) strings))])]))))))])) ;; run-one/sync : (-> A) -> A diff --git a/collects/tests/drracket/io.rkt b/collects/tests/drracket/io.rkt index 4b2d683ee7..ef3e7d3ef3 100644 --- a/collects/tests/drracket/io.rkt +++ b/collects/tests/drracket/io.rkt @@ -138,7 +138,7 @@ add this test: (- (send interactions-text last-paragraph) 1)))]) (unless (equal? got-value expected-transcript) (fprintf (current-error-port) - "FAILED: expected: ~s~n got: ~s~n program: ~s~n input: ~s~n" + "FAILED: expected: ~s\n got: ~s\n program: ~s\n input: ~s\n" expected-transcript got-value program input))))) (clear-definitions drs-frame) @@ -159,7 +159,7 @@ add this test: (do-input-test "(read-line)" "\n" "\n\"\"") (do-input-test "(read-char)" "\n" "\n#\\newline") - (do-input-test "(list (read) (printf \"1~n\") (read) (printf \"3~n\"))" + (do-input-test "(list (read) (printf \"1\n\") (read) (printf \"3\n\"))" "0 2\n" "0 2\n1\n3\n(0 # 2 #)") diff --git a/collects/tests/file/gzip.rkt b/collects/tests/file/gzip.rkt index 412c8d691d..3348d2eba5 100644 --- a/collects/tests/file/gzip.rkt +++ b/collects/tests/file/gzip.rkt @@ -48,7 +48,7 @@ (for-each (lambda (f) (when (file-exists? f) - (printf "trying ~a~n" f) + (printf "trying ~a\n" f) (let ([str (call-with-input-file f (lambda (p) @@ -113,7 +113,7 @@ (for-each (lambda (f) (when (file-exists? f) - (printf "trying ~a~n" f) + (printf "trying ~a\n" f) (let-values ([(zo zi zn ze zf) (apply values (process* gzip "-c" f))] [(mi mo) (make-pipe 4096)]) diff --git a/collects/tests/framework/utils.rktl b/collects/tests/framework/utils.rktl index 3776c311ff..7f304473de 100644 --- a/collects/tests/framework/utils.rktl +++ b/collects/tests/framework/utils.rktl @@ -7,7 +7,7 @@ (error 'wait-for-mred-frame ,(format "after ~a seconds, frame labelled ~s didn't appear" timeout name)) (let ([win (get-top-level-focus-window)]) - (printf "win: ~a label ~a~n" win (and win (string=? (send win get-label) ,name))) + (printf "win: ~a label ~a\n" win (and win (string=? (send win get-label) ,name))) (unless (and win (string=? (send win get-label) ,name)) (sleep ,pause-time) (loop (- n 1))))))))) diff --git a/collects/tests/frtime/mailbox.rkt b/collects/tests/frtime/mailbox.rkt index 14d2ba9df3..4272d4167a 100644 --- a/collects/tests/frtime/mailbox.rkt +++ b/collects/tests/frtime/mailbox.rkt @@ -35,7 +35,7 @@ ((mailbox-receive mb 10 error-timeout (want-thnk 24))) => 24 )) -(printf "Channel~n") +(printf "Channel\n") (test-it! ch:new-mailbox ch:mailbox? ch:mailbox-send! ch:mailbox-receive) -(printf "Semaphore~n") +(printf "Semaphore\n") (test-it! sema:new-mailbox sema:mailbox? sema:mailbox-send! sema:mailbox-receive) diff --git a/collects/tests/frtime/time.rkt b/collects/tests/frtime/time.rkt index 27ecad7502..c76194928d 100644 --- a/collects/tests/frtime/time.rkt +++ b/collects/tests/frtime/time.rkt @@ -3,4 +3,4 @@ (==> (filter-e zero? (changes (modulo seconds 10))) (lambda (v) - (printf "~S~n" (value-now x)))) + (printf "~s\n" (value-now x)))) diff --git a/collects/tests/gracket/draw.rkt b/collects/tests/gracket/draw.rkt index d4b8fbf34d..0af3b7f9db 100644 --- a/collects/tests/gracket/draw.rkt +++ b/collects/tests/gracket/draw.rkt @@ -716,7 +716,7 @@ 0 0 w h mode color) (set! x (+ x w 10)))) - (printf "bad bitmap~n")))]) + (printf "bad bitmap\n")))]) ;; BB icon (do-one bb 'solid black) (let ([start x]) diff --git a/collects/tests/gracket/gui-main.rktl b/collects/tests/gracket/gui-main.rktl index 65800972ae..c36528278d 100644 --- a/collects/tests/gracket/gui-main.rktl +++ b/collects/tests/gracket/gui-main.rktl @@ -8,7 +8,7 @@ f (begin (unless printout? - (printf "please select the console~n")) + (printf "please select the console\n")) (sleep 1/2) (loop #t)))))] [wait @@ -67,9 +67,9 @@ [frame (mred:test:get-active-frame)] [_ (mred:test:keystroke #\3)] [autosave-time (+ 10 (mred:get-preference 'mred:autosave-delay))] - [_ (printf "waiting for autosave timeout (~a secs)~n" autosave-time)] + [_ (printf "waiting for autosave timeout (~a secs)\n" autosave-time)] [_ (sleep autosave-time)] - [_ (printf "finished waiting for autosave timeout~n")] + [_ (printf "finished waiting for autosave timeout\n")] [_ (unless (file-exists? backup-file) (error 'autosave "autosave file (~a) not created" backup-file))] [_ (mred:test:menu-select "File" save-name)] @@ -80,7 +80,7 @@ [_ (wait-pending)] [_ (wait (lambda () (eq? (mred:test:get-active-frame) console)) "focus didn't return to the console after closing autosave test frame")]) - (printf "test finished~n"))) + (printf "test finished\n"))) ; ; when rewriting, apply this function to: diff --git a/collects/tests/gracket/mem.rktl b/collects/tests/gracket/mem.rktl index 78ea4c9091..9255637de5 100644 --- a/collects/tests/gracket/mem.rktl +++ b/collects/tests/gracket/mem.rktl @@ -68,7 +68,7 @@ (sleep) (collect-garbage) (collect-garbage) - (printf "Thread: ~s Cycle: ~s~n" id n) + (printf "Thread: ~s Cycle: ~s\n" id n) ; (dump-object-stats) ; (if (and dump-stats? (= id 1)) ; (dump-memory-stats)) @@ -229,7 +229,7 @@ (map (lambda (x) (let ([v (weak-box-value (cdr x))]) (when v - (printf "~s ~s~n" (car x) v)))) + (printf "~s ~s\n" (car x) v)))) allocated) (void)) @@ -243,10 +243,10 @@ (if #f (thread (lambda () (read) - (printf "breaking~n") + (printf "breaking\n") (break-thread t) (thread-wait t) - (printf "done~n"))) + (printf "done\n"))) (void))) (define (do-test) diff --git a/collects/tests/gracket/paramz.rktl b/collects/tests/gracket/paramz.rktl index 02f362f384..2aef912e63 100644 --- a/collects/tests/gracket/paramz.rktl +++ b/collects/tests/gracket/paramz.rktl @@ -93,7 +93,7 @@ (and (exn:fail? x) (regexp-match "shutdown" (exn-message x)))) (lambda (x) - (printf "got expected error: ~a~n" (exn-message x)) + (printf "got expected error: ~a\n" (exn-message x)) 'error)]) (parameterize ([current-eventspace e]) (t))))) diff --git a/collects/tests/gracket/showkey.rktl b/collects/tests/gracket/showkey.rktl index 3c7eb7a33c..c547eb90e8 100644 --- a/collects/tests/gracket/showkey.rktl +++ b/collects/tests/gracket/showkey.rktl @@ -9,7 +9,7 @@ (override [on-event (lambda (ev) - (printf "~a~a MOUSE ~a (~a,~a)\n mods:~a~a~a~a~a\n buttons:~a~a~a~a~a~a~a~n" + (printf "~a~a MOUSE ~a (~a,~a)\n mods:~a~a~a~a~a\n buttons:~a~a~a~a~a~a~a\n" (es-check) iter (send ev get-event-type) @@ -38,7 +38,7 @@ [on-char (lambda (ev) (set! iter (add1 iter)) - (printf "~a~a KEY: ~a\n rel-code: ~a\n other-codes: ~a\n mods:~a~a~a~a~a~n" + (printf "~a~a KEY: ~a\n rel-code: ~a\n other-codes: ~a\n mods:~a~a~a~a~a\n" (es-check) iter (let ([v (send ev get-key-code)]) @@ -68,7 +68,7 @@ (inherit accept-drop-files) (override [on-drop-file (lambda (file) - (printf "Dropped: ~a~n" file))]) + (printf "Dropped: ~a\n" file))]) (sequence (super-init "tests" #f 100 100) (accept-drop-files #t))))) diff --git a/collects/tests/gracket/sixlib.rktl b/collects/tests/gracket/sixlib.rktl index 0e9be824c5..12ed2ef10e 100644 --- a/collects/tests/gracket/sixlib.rktl +++ b/collects/tests/gracket/sixlib.rktl @@ -118,7 +118,7 @@ (loop (- i 1)))))]) (for-each-point (lambda (i j) - ;(printf "(~a, ~a) -> ~a~n" i j (unmarshall-color (f i j))) + ;(printf "(~a, ~a) -> ~a\n" i j (unmarshall-color (f i j))) ((draw-pixel v) (make-posn i j) (f i j)))) ;(get-mouse-click v) (for-each-point diff --git a/collects/tests/gracket/testing.rktl b/collects/tests/gracket/testing.rktl index 0e3c98808e..573a5e1c91 100644 --- a/collects/tests/gracket/testing.rktl +++ b/collects/tests/gracket/testing.rktl @@ -12,7 +12,7 @@ (set! test-count (add1 test-count)) (unless (equal? expect got) (let ([s (format "~a: expected ~e; got ~e" name expect got)]) - (fprintf (current-error-port) "ERROR: ~a~n" s) + (fprintf (current-error-port) "ERROR: ~a\n" s) (set! errs (cons s errs))))) (define-syntax mismatch @@ -23,7 +23,7 @@ (test 'was-mismatch 'mismtach (with-handlers ([exn:fail:contract? (lambda (x) - (printf "~a~n" (exn-message x)) + (printf "~a\n" (exn-message x)) 'was-mismatch)] [exn:fail? values]) expr)))]))) @@ -51,11 +51,11 @@ (define (report-errs) (newline) (if (null? errs) - (printf "Passed all ~a tests~n" test-count) + (printf "Passed all ~a tests\n" test-count) (begin - (fprintf (current-error-port) "~a Error(s) in ~a tests~n" (length errs) test-count) + (fprintf (current-error-port) "~a Error(s) in ~a tests\n" (length errs) test-count) (for-each (lambda (s) - (fprintf (current-error-port) "~a~n" s)) + (fprintf (current-error-port) "~a\n" s)) (reverse errs))))) diff --git a/collects/tests/mysterx/dhtmltests.rktl b/collects/tests/mysterx/dhtmltests.rktl index eab77835eb..0b32bc7ca1 100644 --- a/collects/tests/mysterx/dhtmltests.rktl +++ b/collects/tests/mysterx/dhtmltests.rktl @@ -24,11 +24,11 @@ (define txt (send doc find-element "P" "text")) (define (test-prop getter setter expected) - (printf "Checking ~a~n" getter) + (printf "Checking ~a\n" getter) (send-generic txt (make-generic mx-element% setter) expected) (let ([got (send-generic txt (make-generic mx-element% getter))]) (unless (equal? got expected) - (printf "~a: Expected ~a, got ~a~n" + (printf "~a: Expected ~a, got ~a\n" getter expected got)))) (define tests @@ -144,18 +144,18 @@ (let ([result (send txt filter)]) (if (equal? result filter-spec) - (printf "Checking filter~n") - (error (format "filter test: Expected ~a, got ~a~n" + (printf "Checking filter\n") + (error (format "filter test: Expected ~a, got ~a\n" filter-spec result)))) -(printf "Navigating to CNN~n") +(printf "Navigating to CNN\n") (send wb navigate "http://www.cnn.com") (sleep 2) -(printf "Navigating to IBM~n") +(printf "Navigating to IBM\n") (send wb navigate/status "http://www.ibm.com") (sleep 2) -(printf "Back to CNN~n") +(printf "Back to CNN\n") (send wb go-back) (sleep 2) -(printf "Forward to IBM~n") +(printf "Forward to IBM\n") (send wb go-forward) diff --git a/collects/tests/racket/benchmarks/mz/parsing.rktl b/collects/tests/racket/benchmarks/mz/parsing.rktl index a1d17b8ecb..4c0d5ab7a1 100644 --- a/collects/tests/racket/benchmarks/mz/parsing.rktl +++ b/collects/tests/racket/benchmarks/mz/parsing.rktl @@ -20,7 +20,7 @@ (let loop ([n 10]) (unless (zero? n) - (printf "lexing~n") + (printf "lexing\n") (time (let ([p (mk-p)]) (port-count-lines! p) @@ -29,7 +29,7 @@ (let-values ([(a b c d e) (scheme-lexer p)]) (unless (eq? 'eof b) (loop))))))) - (printf "reading~n") + (printf "reading\n") (time (let ([p (mk-p)]) (port-count-lines! p) @@ -38,6 +38,6 @@ (let ([v (read p)]) (unless (eof-object? v) (loop))))))) - (printf "done~n") + (printf "done\n") (loop (sub1 n)))) diff --git a/collects/tests/racket/benchmarks/places/place-channel.rktl b/collects/tests/racket/benchmarks/places/place-channel.rktl index eb0f9c6895..c5b8ff95a6 100644 --- a/collects/tests/racket/benchmarks/places/place-channel.rktl +++ b/collects/tests/racket/benchmarks/places/place-channel.rktl @@ -35,9 +35,9 @@ END (define B/sE (/ (* 2 count message-size) (/ t2 1000))) - (printf "~a ~a ~a ~a~n" r t1 t2 t3) - (printf "B/s ~a~n" (exact->inexact B/sE)) - (printf "MB/s ~a~n" (exact->inexact (/ B/sE (* 1024 1024)))) + (printf "~a ~a ~a ~a\n" r t1 t2 t3) + (printf "B/s ~a\n" (exact->inexact B/sE)) + (printf "MB/s ~a\n" (exact->inexact (/ B/sE (* 1024 1024)))) (place-wait pl))) (define (cons-tree-test) @@ -67,7 +67,7 @@ END (place-channel-recv pl))) null)) - (printf "~a ~a ~a ~a~n" r t1 t2 t3) + (printf "~a ~a ~a ~a\n" r t1 t2 t3) (place-wait pl))) (byte-message-test) diff --git a/collects/tests/racket/compile.rktl b/collects/tests/racket/compile.rktl index 4c7e05c750..c0814d3a34 100644 --- a/collects/tests/racket/compile.rktl +++ b/collects/tests/racket/compile.rktl @@ -35,7 +35,7 @@ (let ([s (get-output-bytes p)] [es (get-output-bytes ep)]) (unless (equal? s es) - (error 'try "bad expand ~e~n" e)) + (error 'try "bad expand ~e\n" e)) ; (write (string->list s)) (newline) (let ([e (parameterize ([read-accept-compiled #t]) (read (open-input-bytes s)))]) @@ -67,7 +67,7 @@ (current-module-declare-name)) (next-eval x) (begin - ;; (fprintf file ": ~a~n" +) + ;; (fprintf file ": ~a\n" +) ;; (write x file) (newline file) (let ([p (open-output-bytes)] [ep (open-output-bytes)] @@ -78,7 +78,7 @@ (let ([s (get-output-bytes p)] [es (get-output-bytes ep)]) (unless (equal? s es) - '(fprintf (current-error-port) "bad expand (~a,~a) ~e~n" + '(fprintf (current-error-port) "bad expand (~a,~a) ~e\n" (bytes-length s) (bytes-length es) x)) ; (display s file) (newline file) (let ([e (parameterize ([read-accept-compiled #t]) diff --git a/collects/tests/racket/contmark.rktl b/collects/tests/racket/contmark.rktl index e895744abb..57530332ad 100644 --- a/collects/tests/racket/contmark.rktl +++ b/collects/tests/racket/contmark.rktl @@ -467,8 +467,8 @@ [(equal? (car a) (car b)) (loop (cdr a) (cdr b))] [else - (printf "a: ~s~n" a) - (printf "b: ~s~n" b) + (printf "a: ~s\n" a) + (printf "b: ~s\n" b) #f]))) (test #t diff --git a/collects/tests/racket/deep.rktl b/collects/tests/racket/deep.rktl index 7b9b12644f..2b31343181 100644 --- a/collects/tests/racket/deep.rktl +++ b/collects/tests/racket/deep.rktl @@ -12,7 +12,7 @@ (sub1 (loop (sub1 n)))))) (define proc-depth (find-depth (lambda (n) (nontail-loop n (lambda (x) x))))) -(printf "non-tail loop overflows at ~a~n" proc-depth) +(printf "non-tail loop overflows at ~a\n" proc-depth) (test (- proc-depth) 'deep-recursion (nontail-loop proc-depth (lambda (x) x))) @@ -95,7 +95,7 @@ (read paren-port)) (define read-depth (find-depth read-deep)) -(printf "nested paren read overflows at ~a~n" read-depth) +(printf "nested paren read overflows at ~a\n" read-depth) (define deep-list (read-deep read-depth)) diff --git a/collects/tests/racket/embed-me1.rkt b/collects/tests/racket/embed-me1.rkt index 7e2bb11748..65f7030bb1 100644 --- a/collects/tests/racket/embed-me1.rkt +++ b/collects/tests/racket/embed-me1.rkt @@ -1,5 +1,5 @@ (module embed-me1 mzscheme (with-output-to-file "stdout" - (lambda () (printf "This is 1~n")) + (lambda () (printf "This is 1\n")) 'append)) diff --git a/collects/tests/racket/embed-me1b.rkt b/collects/tests/racket/embed-me1b.rkt index 5af91026b6..5c2ae8fce6 100644 --- a/collects/tests/racket/embed-me1b.rkt +++ b/collects/tests/racket/embed-me1b.rkt @@ -4,6 +4,6 @@ (for-syntax scheme/base)) (define-runtime-path file '(lib "icons/file.gif")) (with-output-to-file "stdout" - (lambda () (printf "This is 1b~n")) + (lambda () (printf "This is 1b\n")) #:exists 'append) diff --git a/collects/tests/racket/embed-me1c.rkt b/collects/tests/racket/embed-me1c.rkt index 067c8ad230..70c8a943c8 100644 --- a/collects/tests/racket/embed-me1c.rkt +++ b/collects/tests/racket/embed-me1c.rkt @@ -4,6 +4,6 @@ (for-syntax scheme/base)) (define-runtime-path file '(lib "etc.ss")) ; in mzlib (with-output-to-file "stdout" - (lambda () (printf "This is 1c~n")) + (lambda () (printf "This is 1c\n")) #:exists 'append) diff --git a/collects/tests/racket/embed-me1d.rkt b/collects/tests/racket/embed-me1d.rkt index cc6b750193..7bc3cd2149 100644 --- a/collects/tests/racket/embed-me1d.rkt +++ b/collects/tests/racket/embed-me1d.rkt @@ -4,5 +4,5 @@ (for-syntax scheme/base)) (define-runtime-path file '(lib "file.gif" "icons")) (with-output-to-file "stdout" - (lambda () (printf "This is 1d~n")) + (lambda () (printf "This is 1d\n")) #:exists 'append) diff --git a/collects/tests/racket/embed-me1e.rkt b/collects/tests/racket/embed-me1e.rkt index 645df59905..8ad79cff45 100644 --- a/collects/tests/racket/embed-me1e.rkt +++ b/collects/tests/racket/embed-me1e.rkt @@ -4,5 +4,5 @@ (for-syntax scheme/base)) (define-runtime-path file '(lib "html")) (with-output-to-file "stdout" - (lambda () (printf "This is 1e~n")) + (lambda () (printf "This is 1e\n")) #:exists 'append) diff --git a/collects/tests/racket/embed-me2.rkt b/collects/tests/racket/embed-me2.rkt index 53abb21299..0e4d9481dd 100644 --- a/collects/tests/racket/embed-me2.rkt +++ b/collects/tests/racket/embed-me2.rkt @@ -2,8 +2,5 @@ (require "embed-me1.ss" mzlib/etc) (with-output-to-file "stdout" - (lambda () (printf "This is 2: ~a~n" true)) + (lambda () (printf "This is 2: ~a\n" true)) 'append)) - - - diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl index 457f2ea6b4..f959ec7031 100644 --- a/collects/tests/racket/embed.rktl +++ b/collects/tests/racket/embed.rktl @@ -37,7 +37,7 @@ (mk-dest-bin #t))) (define (prepare exe src) - (printf "Making ~a with ~a...~n" exe src) + (printf "Making ~a with ~a...\n" exe src) (when (file-exists? exe) (delete-file exe))) diff --git a/collects/tests/racket/file.rktl b/collects/tests/racket/file.rktl index 73388a7f6e..915183dc97 100644 --- a/collects/tests/racket/file.rktl +++ b/collects/tests/racket/file.rktl @@ -388,7 +388,7 @@ (close-input-port p) (define-values (in-p out-p) (open-input-output-file tempfilename #:exists 'update)) -(fprintf out-p "hi~n") +(fprintf out-p "hi\n") (flush-output out-p) (test eof read-char in-p) (test 3 file-position out-p) @@ -1111,7 +1111,7 @@ (test "hello---~---there" format "~.a---~~---~a" "hello" 'there) (test "\"hello\"---~---there" format "~.s---~~---~s" "hello" 'there) (test "\"hello\"---~---'there" format "~.v---~~---~v" "hello" 'there) - (test (string #\a #\newline #\b #\newline #\c) format "a~nb~%c") + (test (string #\a #\newline #\b #\newline #\c) format "a\nb~%c") (let ([try-newline-stuff (lambda (newlines) (test "12" format (apply string `(#\1 #\~ #\space ,@newlines #\space #\2))) @@ -1241,7 +1241,7 @@ (let loop ([n 0]) (with-handlers ([exn:fail:filesystem? (lambda (exn) - (printf "expected open failure: ~a~n" + (printf "expected open failure: ~a\n" (exn-message exn)) n)]) ;; leave the port open: @@ -1251,7 +1251,7 @@ (loop (add1 n)))))]) ;; should close all the ports (custodian-shutdown-all c) - (printf "got ~a ports~n" n) + (printf "got ~a ports\n" n) n))))]) (let ([n (try)]) (test n try)))) @@ -1290,7 +1290,7 @@ (test #t tcp-port? r2) (test #t tcp-port? w1) (test #t tcp-port? w2) - (fprintf w1 "Hello~n") + (fprintf w1 "Hello\n") (flush-output w1) (test "Hello" read-line r2) (tcp-abandon-port r1) diff --git a/collects/tests/racket/imap.rktl b/collects/tests/racket/imap.rktl index 1aae0cb6e3..c5a2c65b25 100644 --- a/collects/tests/racket/imap.rktl +++ b/collects/tests/racket/imap.rktl @@ -21,7 +21,7 @@ (define-values (imap cnt recent) (test-connect)) -(printf "Msgs: ~a; Validity: ~a~n" cnt (imap-uidvalidity imap)) +(printf "Msgs: ~a; Validity: ~a\n" cnt (imap-uidvalidity imap)) (test cnt imap-messages imap) (test recent imap-recent imap) diff --git a/collects/tests/racket/loop.rktl b/collects/tests/racket/loop.rktl index 18fde593f5..627df40d77 100644 --- a/collects/tests/racket/loop.rktl +++ b/collects/tests/racket/loop.rktl @@ -22,8 +22,6 @@ (if (equal? n v) (begin (when (zero? (modulo n 100)) - (printf "~a~n" n)) + (printf "~a\n" n)) (loop (add1 n))) - (error 'loop "messed up: ~a != ~a~n" n v))))) - - + (error 'loop "messed up: ~a != ~a\n" n v))))) diff --git a/collects/tests/racket/macrolib.rktl b/collects/tests/racket/macrolib.rktl index 23eb8b0cd1..2f1ab25006 100644 --- a/collects/tests/racket/macrolib.rktl +++ b/collects/tests/racket/macrolib.rktl @@ -97,7 +97,7 @@ (define (opt-lam-test exp expected) (let ([got (eval exp)]) (unless (equal? got expected) - (printf "FAILED test: ~a~n expected: ~s~n got: ~s~n" + (printf "FAILED test: ~a\n expected: ~s\n got: ~s\n" exp expected got)))) (define (opt-lam-test/bad exp expected) @@ -105,7 +105,7 @@ (lambda (exn) (exn-message exn))]) (cons 'got-result (eval exp)))]) (unless (regexp-match expected got) - (printf "FAILED test: ~a~n expected: ~s~n got: ~s~n" + (printf "FAILED test: ~a\n expected: ~s\n got: ~s\n" exp expected got)))) (test 1 (opt-lambda (start) start) 1) diff --git a/collects/tests/racket/namespac.rktl b/collects/tests/racket/namespac.rktl index 0699106868..bf01543a9e 100644 --- a/collects/tests/racket/namespac.rktl +++ b/collects/tests/racket/namespac.rktl @@ -76,7 +76,7 @@ sr))]) (or (equal? st (symbol->string (object-name value))) (and (fprintf (current-error-port) - "different: ~s ~s~n" st (object-name value)) + "different: ~s ~s\n" st (object-name value)) #f)))))) gvl))) diff --git a/collects/tests/racket/object-old.rktl b/collects/tests/racket/object-old.rktl index 171467acb6..80d000417d 100644 --- a/collects/tests/racket/object-old.rktl +++ b/collects/tests/racket/object-old.rktl @@ -287,7 +287,7 @@ (define display-test (lambda (p v) - (printf "Should be ~s: ~s ~a~n" + (printf "Should be ~s: ~s ~a\n" p v (if (equal? p v) "" "ERROR")))) diff --git a/collects/tests/racket/object.rktl b/collects/tests/racket/object.rktl index f470b83c3a..ce63778325 100644 --- a/collects/tests/racket/object.rktl +++ b/collects/tests/racket/object.rktl @@ -276,7 +276,7 @@ (begin (define (name) (blah)) (define (blah) - (printf "hi~n")))])) + (printf "hi\n")))])) (define fish% (class* object% (eater<%>) diff --git a/collects/tests/racket/package-gen.rktl b/collects/tests/racket/package-gen.rktl index 62d5126e2f..8fc9f88952 100644 --- a/collects/tests/racket/package-gen.rktl +++ b/collects/tests/racket/package-gen.rktl @@ -83,7 +83,7 @@ (for-each (lambda (form) (set! cnt (add1 cnt)) (when (zero? (modulo cnt 100)) - (printf "~a/~a~n" cnt total)) + (printf "~a/~a\n" cnt total)) (when ((add1 (random 10)) . >= . do-threshold) ;; (pretty-print form) (parameterize ([current-namespace (make-base-namespace)]) @@ -92,7 +92,7 @@ [mode "top-level"]) (with-handlers ([exn:fail? (lambda (x) - (printf "At ~a:~n" mode) + (printf "At ~a:\n" mode) (pretty-print form) (raise x))]) (eval `(require scheme/package)) diff --git a/collects/tests/racket/param.rktl b/collects/tests/racket/param.rktl index 2aaba14be0..6a0a72a20b 100644 --- a/collects/tests/racket/param.rktl +++ b/collects/tests/racket/param.rktl @@ -317,7 +317,7 @@ [current-output-port o]) (read-eval-print-loop)) (let ([s (get-output-string o)]) - (printf "**~a**~n" s) + (printf "**~a**\n" s) (unless (char=? #\5 (string-ref s 2)) (error "print:" s)))) exn:fail? diff --git a/collects/tests/racket/pconvert.rktl b/collects/tests/racket/pconvert.rktl index 534ec11130..484ee47b91 100644 --- a/collects/tests/racket/pconvert.rktl +++ b/collects/tests/racket/pconvert.rktl @@ -51,11 +51,11 @@ [whole/fractional-exact-numbers whole/fractional-numbers?]) (test (selector test-case) print-convert before)) (printf - ">> (constructor-style-printing ~a) (quasi-read-style-printing ~a) (show-sharing ~a) (abbreviate-cons-as-list ~a) (whole/fractional-exact-numbers ~a)~n" + ">> (constructor-style-printing ~a) (quasi-read-style-printing ~a) (show-sharing ~a) (abbreviate-cons-as-list ~a) (whole/fractional-exact-numbers ~a)\n" constructor-style? quasi-read? sharing? cons-as-list? whole/fractional-numbers?)))]) - ;(printf "testing: ~s~n" before) + ;(printf "testing: ~s\n" before) ;(printf ".") (flush-output (current-output-port)) (cond [(pctest? test-case) diff --git a/collects/tests/racket/portlib.rktl b/collects/tests/racket/portlib.rktl index b5faae12b7..ad19a2a51e 100644 --- a/collects/tests/racket/portlib.rktl +++ b/collects/tests/racket/portlib.rktl @@ -92,7 +92,7 @@ (test "anana" read-string 5 in) ;; Set up two commits, pick one to succeed: (let ([go (lambda (which peek? suspend/kill) - (printf "~a ~a ~a~n" which peek? suspend/kill) + (printf "~a ~a ~a\n" which peek? suspend/kill) (display "donut" out) (test #"don" peek-bytes 3 0 in) (let* ([r1 '?] @@ -223,7 +223,7 @@ (max 1 (random (- (bytes-length s) (bytes-length a))))))] [c (subbytes s (+ (bytes-length a) (bytes-length b)))]) (define (go-stream close? copy? threads? peek?) - (printf "Go stream: ~a ~a ~a ~a~n" close? copy? threads? peek?) + (printf "Go stream: ~a ~a ~a ~a\n" close? copy? threads? peek?) (let*-values ([(in1 out) (make-pipe-with-specials)] [(in out1) (if copy? (make-pipe-with-specials) diff --git a/collects/tests/racket/pretty.rktl b/collects/tests/racket/pretty.rktl index 5718eaf239..a1a8eacf60 100644 --- a/collects/tests/racket/pretty.rktl +++ b/collects/tests/racket/pretty.rktl @@ -268,7 +268,7 @@ (if (< line 100) " " "") (if (< line 1000) " " "")) 5) - (fprintf port "!~n")))) + (fprintf port "!\n")))) (define modes (list @@ -308,7 +308,7 @@ (lambda () (let loop ([modes modes][n n]) (cond - [(null? modes) (printf ":~n") (map pretty-print vs)] + [(null? modes) (printf ":\n") (map pretty-print vs)] [(positive? (bitwise-and n 1)) (let ([mode (car modes)]) (printf "~s " (car mode)) diff --git a/collects/tests/racket/stx.rktl b/collects/tests/racket/stx.rktl index 0690025e88..ebb92f87cc 100644 --- a/collects/tests/racket/stx.rktl +++ b/collects/tests/racket/stx.rktl @@ -1133,7 +1133,7 @@ (define-syntax (id stx) #'x)))])) (define$ a 1) (define$ b 2) - (printf "~a ~a~n" a b))) + (printf "~a ~a\n" a b))) (eval '(require 'mm)) (eval '(current-namespace (module->namespace ''mm))) @@ -1152,7 +1152,7 @@ #'(define-syntax (id stx) #'x))])) (define$ a 1) (define$ b 2) - (printf "~a ~a~n" a b))) + (printf "~a ~a\n" a b))) (eval '(require 'mm)) (eval '(current-namespace (module->namespace ''mm))) diff --git a/collects/tests/racket/sync.rktl b/collects/tests/racket/sync.rktl index 93f58d930e..252c1cb318 100644 --- a/collects/tests/racket/sync.rktl +++ b/collects/tests/racket/sync.rktl @@ -847,7 +847,7 @@ (let ([t1 (semaphore-peek-evt (make-semaphore 1))] [t2 (semaphore-peek-evt (make-semaphore 1))]) (let-values ([(r w) (make-pipe)]) - (fprintf w "Hi!~n") + (fprintf w "Hi!\n") ;; Between 20% and 80% is fair, and surely < 20% or > 80% is unlikely (try t1 t2 t1 20 80) (try t1 t2 t2 20 80) diff --git a/collects/tests/racket/syntax.rktl b/collects/tests/racket/syntax.rktl index dae2f744df..8b6d30df82 100644 --- a/collects/tests/racket/syntax.rktl +++ b/collects/tests/racket/syntax.rktl @@ -558,7 +558,7 @@ (lambda (v b) (let* ([args (make-args bg b)] [expr (cons bg args)]) - (printf "~s:~n" expr) + (printf "~s:\n" expr) (teval `(test ,v (quote ,bg) ,expr))))] [make-bg (lambda (b) diff --git a/collects/tests/racket/thread.rktl b/collects/tests/racket/thread.rktl index 7f6e35a415..605c4b142e 100644 --- a/collects/tests/racket/thread.rktl +++ b/collects/tests/racket/thread.rktl @@ -803,7 +803,7 @@ (wait) (sleep0) (set! v 99) - (fprintf (current-error-port) "Thread shouldn't get here! ~a~n" (break-enabled)))))]) + (fprintf (current-error-port) "Thread shouldn't get here! ~a\n" (break-enabled)))))]) (sleep1) (thread-suspend t2) (post) @@ -834,7 +834,7 @@ (wait) (sleep0) (set! v 99) - (fprintf (current-error-port) "Shouldn't get here! ~a~n" (break-enabled)))))))]) + (fprintf (current-error-port) "Shouldn't get here! ~a\n" (break-enabled)))))))]) (test 'sema-block values 'sema-block) (let ([s (make-semaphore)]) (w-block (lambda () (semaphore-post s)) diff --git a/collects/tests/racket/unicode.rktl b/collects/tests/racket/unicode.rktl index ff911f550c..874feda7c9 100644 --- a/collects/tests/racket/unicode.rktl +++ b/collects/tests/racket/unicode.rktl @@ -1111,7 +1111,7 @@ (or (regexp-match "linux" (path->string (system-library-subpath))) (eq? 'macosx (system-type))))) -(printf "Known locale?: ~a~n" known-locale?) +(printf "Known locale?: ~a\n" known-locale?) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; String comparison. Relies on the default locale knowing diff --git a/collects/tests/syntax-color/scheme-lexer.rkt b/collects/tests/syntax-color/scheme-lexer.rkt index 79d366ede1..bf680d12d1 100644 --- a/collects/tests/syntax-color/scheme-lexer.rkt +++ b/collects/tests/syntax-color/scheme-lexer.rkt @@ -48,14 +48,14 @@ (s (apply string-append l))) (close-input-port p) (unless (string=? s expected) - (printf "input : ~s~n" input) - (printf "output : ~s~n" s) - (printf "expected: ~s~n~n" expected)) + (printf "input : ~s\n" input) + (printf "output : ~s\n" s) + (printf "expected: ~s\n\n" expected)) (let ((a-n (length l))) (unless (= e-n a-n) - (printf "input : ~a~n" input) - (printf "expected: ~a tokens~n" e-n) - (printf "got : ~a tokens~n~n" a-n))))) + (printf "input : ~a\n" input) + (printf "expected: ~a tokens\n" e-n) + (printf "got : ~a tokens\n\n" a-n))))) (define (input->port input) (let-values ([(in out) (make-pipe-with-specials)]) diff --git a/collects/tests/typed-scheme/succeed/apply-dots-list.rkt b/collects/tests/typed-scheme/succeed/apply-dots-list.rkt index ec5c25febd..cd1b832f10 100644 --- a/collects/tests/typed-scheme/succeed/apply-dots-list.rkt +++ b/collects/tests/typed-scheme/succeed/apply-dots-list.rkt @@ -10,14 +10,14 @@ (let aux ([tests tests] [num-passed 0]) (if (null? tests) - (printf "~a tests passed.~n" num-passed) + (printf "~a tests passed.\n" num-passed) (let ((test (car tests))) (let ((actual ((car test))) (expected (cadr test)) (msg (caddr test))) (if (equal? actual expected) (aux (cdr tests) (+ num-passed 1)) - (printf "Test failed: ~a. Expected ~a, got ~a.~n" + (printf "Test failed: ~a. Expected ~a, got ~a.\n" msg expected actual))))))) (apply check-all tests) ; Works in untyped, but not in typed diff --git a/collects/tests/units/test-cert.rktl b/collects/tests/units/test-cert.rktl index 41d1d44fe4..c51ac20d6b 100644 --- a/collects/tests/units/test-cert.rktl +++ b/collects/tests/units/test-cert.rktl @@ -21,7 +21,7 @@ (define-compound-unit u3 (import) (export) (link (((S : s)) u1) (() u2 S))) - (printf "~a~n" (invoke-unit u3)) + (printf "~a\n" (invoke-unit u3)) ) ;; 4 @@ -33,7 +33,7 @@ (define-unit u1 (import) (export s) (define a 1)) (define-values/invoke-unit u1 (import) (export (rename s))) - (printf "~a~n" (+ y (z))) + (printf "~a\n" (+ y (z))) ) ;;4 (require 'test3) diff --git a/collects/tests/units/test-harness.rkt b/collects/tests/units/test-harness.rkt index 26bf74d130..bc3e84af48 100644 --- a/collects/tests/units/test-harness.rkt +++ b/collects/tests/units/test-harness.rkt @@ -28,7 +28,7 @@ (syntax-rules () ((_ err expr) (with-handlers ((exn:fail:syntax? (lambda (exn) - (printf "syntax error \"~a\"~n got message \"~a\"~n~n" + (printf "syntax error \"~a\"\n got message \"~a\"\n\n" err (exn-message exn))))) (expand #'expr) @@ -38,7 +38,7 @@ (syntax-rules () ((_ err-pred err expr) (with-handlers ((err-pred (lambda (exn) - (printf "runtime error \"~a\"~n got message \"~a\"~n~n" + (printf "runtime error \"~a\"\n got message \"~a\"\n\n" err (exn-message exn))))) expr diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index e2129d3090..88acb53a14 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -33,11 +33,11 @@ (cond [(not (match-blame blame msg)) (error 'test-contract-error - "blame \"~a\" not found in:~n\"~a\"" + "blame \"~a\" not found in:\n\"~a\"" blame msg)] [(not (match-obj obj msg)) (error 'test-contract-error - "object \"~a\" not found in:~n\"~a\"" + "object \"~a\" not found in:\n\"~a\"" obj msg)] [else (printf "contract error \"~a\" on ~a blaming ~a: ok\n\t\"~a\"\n\n" @@ -884,4 +884,4 @@ (link [((T : t^)) t@] [((S : s^)) s@ T]))) (define-values/invoke-unit c@ (import) (export s^)) - (new-make-t)) \ No newline at end of file + (new-make-t)) diff --git a/collects/texpict/private/mrpict-extra.rkt b/collects/texpict/private/mrpict-extra.rkt index bc069b8e8a..c5195d0593 100644 --- a/collects/texpict/private/mrpict-extra.rkt +++ b/collects/texpict/private/mrpict-extra.rkt @@ -408,7 +408,7 @@ (send the-color-database find-color "BLACK"))]) (unless requested-color (fprintf (current-error-port) - "WARNING: couldn't find color: ~s~n" (cadr x))) + "WARNING: couldn't find color: ~s\n" (cadr x))) (set-pen (find-or-create-pen color (send p get-width) 'solid)) (set-brush (find-or-create-brush color 'solid)) (set-text-foreground color)) @@ -429,7 +429,7 @@ (set-pen p))] [(prog) ((cadr x) dc dx (- h+top dy (caddr x)))] - [else (error 'render "unknown command: ~a~n" x)]))) + [else (error 'render "unknown command: ~a\n" x)]))) (loop dx dy (cdr l)))))) (define (make-pict-drawer p) diff --git a/collects/typed-scheme/env/global-env.rkt b/collects/typed-scheme/env/global-env.rkt index 369f6cfda2..b22f47c294 100644 --- a/collects/typed-scheme/env/global-env.rkt +++ b/collects/typed-scheme/env/global-env.rkt @@ -39,7 +39,7 @@ ;; add a single type to the mapping ;; identifier type -> void (define (register-type/undefined id type) - ;(printf "register-type/undef ~a~n" (syntax-e id)) + ;(printf "register-type/undef ~a\n" (syntax-e id)) (if (free-id-table-ref the-mapping id (lambda _ #f)) (void (tc-error/expr #:stx id "Duplicate type annotation for ~a" (syntax-e id))) (free-id-table-set! the-mapping id (box type)))) diff --git a/collects/typed-scheme/env/type-alias-env.rkt b/collects/typed-scheme/env/type-alias-env.rkt index 0d1b629872..05547eecb3 100644 --- a/collects/typed-scheme/env/type-alias-env.rkt +++ b/collects/typed-scheme/env/type-alias-env.rkt @@ -27,7 +27,7 @@ ;; add a name to the mapping ;; identifier type-stx -> void (define (register-type-alias id stx) - ;(printf "registering type ~a~n~a~n" (syntax-e id) id) + ;(printf "registering type ~a\n~a\n" (syntax-e id) id) (mapping-put! id (make-unresolved stx #f))) (define (register-resolved-type-alias id ty) diff --git a/collects/typed-scheme/env/type-name-env.rkt b/collects/typed-scheme/env/type-name-env.rkt index c741b55231..47b553dbd2 100644 --- a/collects/typed-scheme/env/type-name-env.rkt +++ b/collects/typed-scheme/env/type-name-env.rkt @@ -24,7 +24,7 @@ ;; add a name to the mapping ;; identifier Type -> void (define (register-type-name id [type #t]) - ;(printf "registering type ~a~n~a~n" (syntax-e id) id) + ;(printf "registering type ~a\n~a\n" (syntax-e id) id) (mapping-put! id type)) ;; add a bunch of names to the mapping diff --git a/collects/typed-scheme/infer/infer-unit.rkt b/collects/typed-scheme/infer/infer-unit.rkt index 9f1cc66819..c177d37cf6 100644 --- a/collects/typed-scheme/infer/infer-unit.rkt +++ b/collects/typed-scheme/infer/infer-unit.rkt @@ -525,7 +525,7 @@ (match v [(c S X T) (let ([var (hash-ref h (or variable X) Constant)]) - ;(printf "variance was: ~a~nR was ~a~nX was ~a~nS T ~a ~a~n" var R (or variable X) S T) + ;(printf "variance was: ~a\nR was ~a\nX was ~a\nS T ~a ~a\n" var R (or variable X) S T) (evcase var [Constant S] [Covariant S] diff --git a/collects/typed-scheme/typecheck/tc-app-helper.rkt b/collects/typed-scheme/typecheck/tc-app-helper.rkt index d829d63260..42492eeae5 100644 --- a/collects/typed-scheme/typecheck/tc-app-helper.rkt +++ b/collects/typed-scheme/typecheck/tc-app-helper.rkt @@ -94,7 +94,7 @@ "\n")) (tc-error/expr #:return (ret (Un)) (string-append - "Polymorphic " fcn-string " could not be applied to arguments:~n" + "Polymorphic " fcn-string " could not be applied to arguments:\n" (domain-mismatches t msg-doms msg-rests msg-drests msg-rngs argtypes #f #f #:expected expected) (if (not (for/and ([t (apply append (map fv/list msg-doms))]) (memq t msg-vars))) (string-append "Type Variables: " (stringify msg-vars) "\n") @@ -113,7 +113,7 @@ "\n")) (tc-error/expr #:return (ret (Un)) (string-append - "Polymorphic " fcn-string " could not be applied to arguments:~n" + "Polymorphic " fcn-string " could not be applied to arguments:\n" (domain-mismatches t msg-doms msg-rests msg-drests msg-rngs argtypes #f #f #:expected expected) (if (not (for/and ([t (apply append (map fv/list msg-doms))]) (memq t msg-vars))) (string-append "Type Variables: " (stringify msg-vars) "\n") diff --git a/collects/typed-scheme/typecheck/tc-lambda-unit.rkt b/collects/typed-scheme/typecheck/tc-lambda-unit.rkt index b213cce5b6..4cd62e4003 100644 --- a/collects/typed-scheme/typecheck/tc-lambda-unit.rkt +++ b/collects/typed-scheme/typecheck/tc-lambda-unit.rkt @@ -251,7 +251,7 @@ ns))] [ty (extend-tvars tvars (maybe-loop form formals bodies (ret expected*)))]) - ;(printf "plambda: ~a ~a ~a ~n" literal-tvars new-tvars ty) + ;(printf "plambda: ~a ~a ~a \n" literal-tvars new-tvars ty) t)] [(tc-result1: (and t (PolyDots-names: (list ns ... dvar) expected*))) (let-values @@ -278,7 +278,7 @@ [tvars (let* ([ty (extend-tvars tvars (tc/mono-lambda/type formals bodies #f))]) - ;(printf "plambda: ~a ~a ~a ~n" literal-tvars new-tvars ty) + ;(printf "plambda: ~a ~a ~a \n" literal-tvars new-tvars ty) (make-Poly tvars ty))])] [(tc-result1: t) (unless (check-below (tc/plambda form formals bodies #f) t) diff --git a/collects/typed-scheme/types/printer.rkt b/collects/typed-scheme/types/printer.rkt index 4a6210080b..d92c6cc126 100644 --- a/collects/typed-scheme/types/printer.rkt +++ b/collects/typed-scheme/types/printer.rkt @@ -187,7 +187,7 @@ #;[(Poly-unsafe: n b) (fp "(unsafe-poly ~a ~a ~a)" (Type-seq c) n b)] [(Poly-names: names body) - #;(fprintf (current-error-port) "POLY SEQ: ~a~n" (Type-seq body)) + #;(fprintf (current-error-port) "POLY SEQ: ~a\n" (Type-seq body)) (fp "(All ~a ~a)" names body)] #;[(PolyDots-unsafe: n b) (fp "(unsafe-polydots ~a ~a ~a)" (Type-seq c) n b)] [(PolyDots-names: (list names ... dotted) body) diff --git a/collects/typed-scheme/types/subtype.rkt b/collects/typed-scheme/types/subtype.rkt index 6b2c0994ff..140cdce246 100644 --- a/collects/typed-scheme/types/subtype.rkt +++ b/collects/typed-scheme/types/subtype.rkt @@ -378,7 +378,7 @@ [((Hashtable: _ _) (HashtableTop:)) A0] ;; subtyping on structs follows the declared hierarchy [((Struct: nm (? Type? parent) flds proc _ _ _ _) other) - ;(printf "subtype - hierarchy : ~a ~a ~a~n" nm parent other) + ;(printf "subtype - hierarchy : ~a ~a ~a\n" nm parent other) (subtype* A0 parent other)] ;; Promises are covariant [((Struct: (== promise-sym) _ (list t) _ _ _ _ _) (Struct: (== promise-sym) _ (list t*) _ _ _ _ _)) (subtype* A0 t t*)] diff --git a/collects/typed-scheme/utils/utils.rkt b/collects/typed-scheme/utils/utils.rkt index 47c621d1a3..e855edc8e4 100644 --- a/collects/typed-scheme/utils/utils.rkt +++ b/collects/typed-scheme/utils/utils.rkt @@ -115,7 +115,7 @@ at least theoretically. (when (last-time) (error #f "Timing already started")) (last-time (current-process-milliseconds)) - (printf "Starting ~a at ~a~n" msg (last-time)))]) + (printf "Starting ~a at ~a\n" msg (last-time)))]) (syntax-rules () [(_ msg) (begin @@ -125,7 +125,7 @@ at least theoretically. [old (last-time)] [diff (- t old)]) (last-time t) - (printf "Timing ~a at ~a@~a~n" msg diff t)))])) + (printf "Timing ~a at ~a@~a\n" msg diff t)))])) (values (lambda _ #'(void)) (lambda _ #'(void))))) ;; custom printing diff --git a/collects/unstable/class-iop.rkt b/collects/unstable/class-iop.rkt index db0c8a98c1..9df996fbb5 100644 --- a/collects/unstable/class-iop.rkt +++ b/collects/unstable/class-iop.rkt @@ -113,7 +113,7 @@ [(_ for-whom obj:expr iface:expr) (begin (when warn-on-dynamic-object-check-generation? - (printf "dynamic object check: ~s,~s~n" + (printf "dynamic object check: ~s,~s\n" (syntax-source #'obj) (syntax-line #'obj))) #'(dynamic:check-object<:interface 'for-whom obj iface))])) diff --git a/collects/web-server/dispatchers/dispatch-stat.rkt b/collects/web-server/dispatchers/dispatch-stat.rkt index bbef6e5c0e..5df1238c2d 100644 --- a/collects/web-server/dispatchers/dispatch-stat.rkt +++ b/collects/web-server/dispatchers/dispatch-stat.rkt @@ -12,7 +12,7 @@ (round (exact->inexact (/ b 1024 1024)))) (define (print-memory-usage) - (printf "Usage: ~aMB (of ~aMB)~n" + (printf "Usage: ~aMB (of ~aMB)\n" (bytes->mb (current-memory-use (current-server-custodian))) (bytes->mb (current-memory-use)))) diff --git a/collects/web-server/dispatchers/filesystem-map.rkt b/collects/web-server/dispatchers/filesystem-map.rkt index 1a1d462860..f50c38700c 100644 --- a/collects/web-server/dispatchers/filesystem-map.rkt +++ b/collects/web-server/dispatchers/filesystem-map.rkt @@ -35,12 +35,12 @@ (url-path u))))) nbase)) (define w/o-base (path-without-base nbase the-path)) - #;(printf "~S~n" `(url->path ,base ,nbase ,(url->string u) ,the-path ,w/o-base)) + #;(printf "~S\n" `(url->path ,base ,nbase ,(url->string u) ,the-path ,w/o-base)) (values the-path w/o-base)) (define ((make-url->valid-path url->path) u) (let loop ([up (url-path u)]) - #;(printf "~S~n" `(url->valid-path ,(url->string u) ,up)) + #;(printf "~S\n" `(url->valid-path ,(url->string u) ,up)) (with-handlers ([exn:fail? (lambda (exn) #;((error-display-handler) (exn-message exn) exn) (if (empty? up) diff --git a/collects/web-server/private/connection-manager.rkt b/collects/web-server/private/connection-manager.rkt index 65233a0920..27f9604ecb 100644 --- a/collects/web-server/private/connection-manager.rkt +++ b/collects/web-server/private/connection-manager.rkt @@ -44,7 +44,7 @@ ;; kill-connection!: connection -> void ;; kill this connection (define (kill-connection! conn) - #;(printf "K: ~a~n" (connection-id conn)) + #;(printf "K: ~a\n" (connection-id conn)) (with-handlers ([exn:fail? void]) (cancel-timer! (connection-timer conn))) (kill-connection-w/o-timer! conn)) diff --git a/collects/web-server/private/dispatch-server-unit.rkt b/collects/web-server/private/dispatch-server-unit.rkt index e29e448691..5603d0c710 100644 --- a/collects/web-server/private/dispatch-server-unit.rkt +++ b/collects/web-server/private/dispatch-server-unit.rkt @@ -72,7 +72,7 @@ (new-connection config:initial-connection-timeout ip op (current-custodian) #f)) (let connection-loop () - #;(printf "C: ~a~n" (connection-id conn)) + #;(printf "C: ~a\n" (connection-id conn)) (let-values ([(req close?) (config:read-request conn config:port port-addresses)]) (set-connection-close?! conn close?) (config:dispatch conn req) diff --git a/collects/web-server/private/timer.rkt b/collects/web-server/private/timer.rkt index 875a1b100e..b893826ff1 100644 --- a/collects/web-server/private/timer.rkt +++ b/collects/web-server/private/timer.rkt @@ -13,7 +13,7 @@ (thread (lambda () (let loop ([timers null]) - #;(printf "Timers: ~a~n" (length timers)) + #;(printf "Timers: ~a\n" (length timers)) ;; Wait for either... (apply sync ;; ... a timer-request message ... diff --git a/collects/web-server/scribblings/dispatchers.scrbl b/collects/web-server/scribblings/dispatchers.scrbl index 981153f3f2..e0da447530 100644 --- a/collects/web-server/scribblings/dispatchers.scrbl +++ b/collects/web-server/scribblings/dispatchers.scrbl @@ -190,7 +190,7 @@ a URL that refreshes the password file, servlet cache, etc.} Formats a request by: @racketblock[ (format - "~s~n" + "~s\n" (list 'from (request-client-ip req) 'to (request-host-ip req) 'for (url->string (request-uri req)) 'at @@ -202,7 +202,7 @@ a URL that refreshes the password file, servlet cache, etc.} Formats a request by: @racketblock[ (format - "~s~n" + "~s\n" `((client-ip ,(request-client-ip req)) (host-ip ,(request-host-ip req)) (referer diff --git a/collects/web-server/scribblings/soft.scrbl b/collects/web-server/scribblings/soft.scrbl index 2b3ab79759..fafa15c534 100644 --- a/collects/web-server/scribblings/soft.scrbl +++ b/collects/web-server/scribblings/soft.scrbl @@ -38,12 +38,12 @@ Here's an example servlet that uses soft state: (define softie (soft-state - (printf "Doing a long computation...~n") + (printf "Doing a long computation...\n") (sleep 1))) (define (start req) (soft-state-ref softie) - (printf "Done~n") + (printf "Done\n") (start (send/suspend (lambda (k-url)