10 lines
121 B
Scheme
10 lines
121 B
Scheme
(define-macro (time expr)
|
|
`(time-it (lambda () ,expr)))
|
|
|
|
(define (time-it thunk)
|
|
(thunk))
|
|
|
|
(define (error . x) #f)
|
|
|
|
|