20 lines
332 B
Scheme
20 lines
332 B
Scheme
|
(define (profile-init!)
|
||
|
|
#f)
|
||
|
|
|
||
|
|
(define (display-profile)
|
||
|
|
(display "No profiling data available.")
|
||
|
|
(newline))
|
||
|
|
|
||
|
|
(define-syntax define-prof
|
||
|
|
(syntax-rules
|
||
|
|
()
|
||
|
|
((_ ?args ...)
|
||
|
|
(define ?args ...))))
|
||
|
|
|
||
|
|
(define-syntax account-for
|
||
|
|
(syntax-rules
|
||
|
|
()
|
||
|
|
((_ ?account ?body ...)
|
||
|
|
(begin
|
||
|
|
?body
|
||
|
|
...))))
|