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

made preference save/restore in pref.ss also be an admin-level printf

Browse Source 
svn: r9747
This commit is contained in:
Eli Barzilay 2008-05-08 17:30:06 +00:00
parent 940cb2e6eb
commit 9561e94bd6
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/framework/prefs.ss
View File

@ -21,7 +21,8 @@
(when (file-exists? prefs-file) (when (file-exists? prefs-file)
(copy-file prefs-file saved-prefs-file) (copy-file prefs-file saved-prefs-file)
(delete-file prefs-file) (delete-file prefs-file)
(printf "saved preferences file from ~s to ~s\n" prefs-file saved-prefs-file)) (debug-printf admin "saved preferences file from ~s to ~s\n"
prefs-file saved-prefs-file))
(shutdown-mred) (shutdown-mred)
@ -103,7 +104,8 @@
'passed)))))) 'passed))))))
(when (file-exists? saved-prefs-file) (when (file-exists? saved-prefs-file)
(printf "restoring preferences file from ~s to ~s\n" saved-prefs-file prefs-file) (debug-printf admin "restoring preferences file from ~s to ~s\n"
saved-prefs-file prefs-file)
(when (file-exists? prefs-file) (when (file-exists? prefs-file)
(delete-file prefs-file)) (delete-file prefs-file))
(copy-file saved-prefs-file prefs-file) (copy-file saved-prefs-file prefs-file)

4
collects/tests/framework/test-suite-utils.ss
View File

@ -30,7 +30,8 @@
reset-section-name! reset-section-name!
set-section-name! set-section-name!
set-only-these-tests! set-only-these-tests!
get-only-these-tests) get-only-these-tests
debug-printf)
(define section-jump void) (define section-jump void)
(define (set-section-jump! _s) (set! section-jump _s)) (define (set-section-jump! _s) (set! section-jump _s))
@ -151,7 +152,6 @@
(let/ec k (let/ec k
(let ([show-text (let ([show-text
(lambda (sexp) (lambda (sexp)
(debug-when messages (debug-when messages
(parameterize ([pretty-print-print-line (parameterize ([pretty-print-print-line
(let ([prompt " "] (let ([prompt " "]