From fdc0396962563dbb369ad7050d7ecc9e5df68348 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 2 Nov 2015 22:44:48 +0900 Subject: [PATCH] quote expr in unnamed time macro The time was still reported correctly, but took longer and had the wrong name. Fixes issue #288. --- lib/chibi/time.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/time.sld b/lib/chibi/time.sld index 62466fd4..9e16055a 100644 --- a/lib/chibi/time.sld +++ b/lib/chibi/time.sld @@ -39,6 +39,6 @@ (define-syntax time (syntax-rules () ((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 (lambda () expr)))))))