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

More "~n" -> "\n" changes

Browse Source 
original commit: 8e0f8dd39c3744472b450021f003f9cbe8cbcb62
This commit is contained in:
Eli Barzilay 2010-08-26 12:10:48 -04:00
parent bfeb87cacd
commit cd4dbaad6a
6 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/date.rkt
View File

@ -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))))))))))))
(loop (cdr (cdr (cdr reversed-digits))))))))))))

2
collects/mzlib/integer-set.rkt
View File

@ -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

16
collects/mzlib/thread.rkt
View File

@ -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:

4
collects/mzlib/traceld.rkt
View File

@ -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))))

4
collects/tests/racket/macrolib.rktl
View File

@ -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)

4
collects/tests/racket/pconvert.rktl
View File

@ -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)