made time macro not depend on format.

This commit is contained in:
Abdulaziz Ghuloum 2008-03-24 21:50:37 -04:00
parent 81c17da20b
commit 48f7c88e2d
2 changed files with 6 additions and 2 deletions

View File

@ -1 +1 @@
1428
1429

View File

@ -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)