From c30be664a4492db70d06edd17baffc3950ec6d45 Mon Sep 17 00:00:00 2001
From: felix <felix@call-with-current-continuation.org>
Date: Tue, 14 Nov 2023 13:14:46 +0100
Subject: [PATCH] Fix hygienic comparison for "begin" forms when expanding body

---
 expand.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/expand.scm b/expand.scm
index ec94086a..f18838b3 100644
--- a/expand.scm
+++ b/expand.scm
@@ -462,7 +462,7 @@
     (define (comp s id)
       (let ((f (or (lookup id se)
                    (lookup id (##sys#macro-environment)))))
-        (or (eq? f id) (eq? s id))))
+        (or (eq? f s) (eq? s id))))
     (define (comp-def def)
       (lambda (id)
         (let repeat ((id id))
-- 
2.40.0