From 8f026a4fc707243151faffb89586460354d41cd2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 17 Jul 2024 20:03:03 -0700
Subject: struct: slot warning only for bindable symbols.

* stdlib/struct.tl (sys:check-slot): Don't issue the
diagnostic "<obj> isn't the name of a struct slot"
for slots that are not bindable symbols like obj."abc".
---
 stdlib/struct.tl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'stdlib')

diff --git a/stdlib/struct.tl b/stdlib/struct.tl
index 4d544b4d..892b5c05 100644
--- a/stdlib/struct.tl
+++ b/stdlib/struct.tl
@@ -228,7 +228,8 @@
   ^(sys:make-struct-lit ',name ',plist))
 
 (defun sys:check-slot (form slot)
-  (unless (or (sys:slot-types slot)
+  (unless (or (not (bindable slot))
+              (sys:slot-types slot)
               (sys:static-slot-types slot))
     (compile-defr-warning form ^(slot . ,slot)
                           "~s isn't the name of a struct slot"
-- 
cgit v1.2.3