From bddbdc801d2fba87a221527930f8680461d6e0e0 Mon Sep 17 00:00:00 2001
From: Daphne Preston-Kendal <git@dpk.io>
Date: Tue, 1 Feb 2022 13:25:53 +0100
Subject: [PATCH] Use the exact set! syntactic-closure from the
 identifier-syntax form
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Without this, set! isn’t recognized correctly as a literal and the
set! form erroneously matches any application form with two arguments
---
 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 4eeee6c4..184cf17f 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -1137,7 +1137,7 @@
                       rename compare
                       #t
                       ellipsis ellipsis-specified?
-                      (list _set!)
+                      (list (caar (cadr forms)))
                       (list (cadr forms)
                             (list
                              (cons (caar forms) _o)