made time macro not depend on format.
This commit is contained in:
parent
81c17da20b
commit
48f7c88e2d
|
@ -1 +1 @@
|
|||
1428
|
||||
1429
|
||||
|
|
|
@ -1301,7 +1301,11 @@
|
|||
(lambda (stx)
|
||||
(syntax-match stx ()
|
||||
((_ expr)
|
||||
(bless `(time-it (format "~s" ',expr) (lambda () ,expr)))))))
|
||||
(let ([str
|
||||
(let-values ([(p e) (open-string-output-port)])
|
||||
(write (syntax->datum expr) p)
|
||||
(e))])
|
||||
(bless `(time-it ,str (lambda () ,expr))))))))
|
||||
|
||||
(define delay-macro
|
||||
(lambda (stx)
|
||||
|
|
Loading…
Reference in New Issue