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

*** empty log message ***

Browse Source 
original commit: ad1f0c8bab54d53c0b1032ab02e227a8f7654750
This commit is contained in:
Matthew Flatt 1997-12-03 18:17:09 +00:00
parent 8cb78f0e01
commit c8c39f57d2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/traceld.ss
View File

@ -1,4 +1,10 @@
(define-macro time
(lambda (expr)
`(begin0
,expr
(fprintf (current-output-port) "done ~a~n" (current-process-milliseconds)))))
(let ([load (current-load)] (let ([load (current-load)]
[load-extension (current-load-extension)] [load-extension (current-load-extension)]
[tab ""]) [tab ""])
@ -14,11 +20,11 @@
(lambda () (set! tab (string-append " " tab))) (lambda () (set! tab (string-append " " tab)))
(lambda () (lambda ()
(if (regexp-match "_loader" filename) (if (regexp-match "_loader" filename)
(let ([f (load filename)]) (let ([f (time (load filename))])
(lambda (sym) (lambda (sym)
(fprintf (current-error-port) (fprintf (current-error-port)
"~atrying ~a~n" tab sym) "~atrying ~a~n" tab sym)
(let ([loader (f sym)]) (let ([loader (time (f sym))])
(and loader (and loader
(lambda () (lambda ()
(fprintf (current-error-port) (fprintf (current-error-port)