Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

quote expr in unnamed time macro

Browse source 
The time was still reported correctly, but took longer and had the wrong name.
Fixes issue #288.
This commit is contained in:
Alex Shinn 2015-11-02 22:44:48 +09:00
parent 344680f3b2
commit fdc0396962
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/time.sld
View file

@ -39,6 +39,6 @@
(define-syntax time (define-syntax time
(syntax-rules () (syntax-rules ()
((time expr) ((time expr)
(time (call-with-output-string (lambda (out) (write expr out))) expr)) (time (call-with-output-string (lambda (out) (write 'expr out))) expr))
((time name expr) ((time name expr)
(time* name (lambda () expr))))))) (time* name (lambda () expr)))))))