From 695bd0d14d03e2b3380d2913b87dadc60383235f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 5 Apr 2021 19:36:46 -0700
Subject: qref: bugfix: handle a.(b).?c correctly.

* share/txr/stdlib/struct.tl (qref): Do not assume that (b) is
the name of a slot to be looked up. Use qref to handle it.
---
 share/txr/stdlib/struct.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl
index ca3de714..56d27e0a 100644
--- a/share/txr/stdlib/struct.tl
+++ b/share/txr/stdlib/struct.tl
@@ -220,7 +220,7 @@
          (((pref sym) . more)
            (if (eq pref t)
              (let ((s (gensym)))
-               ^(let ((,s (slot ,obj ',sym)))
+               ^(let ((,s (qref ,obj ,sym)))
                   (if ,s (qref ,s ,*more))))
              :))
          (((dw sym . args))
-- 
cgit v1.2.3