From a14f2d179a33bc409bdeee77902f4778233b30cd Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 14 Aug 2021 00:03:01 +0900 Subject: [PATCH] rename bare let in case expansion (issue #772) --- lib/init-7.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 422b65bc..3fd8d3b2 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -301,7 +301,7 @@ (,(rename 'quote) ,(caar ls))) ,(body (cdar ls)) ,(clause (cdr ls)))))) - `(let ((,(rename 'tmp) ,(cadr expr))) + `(,(rename 'let) ((,(rename 'tmp) ,(cadr expr))) ,(clause (cddr expr)))))) (define-syntax do