From dd99f2a90d3583142dad69f2e89105b686299722 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 16 Jan 2017 00:28:45 -0800
Subject: defstruct registers tentative definition.

* share/txr/stdlib/struct.tl (defstruct): Register the struct
ame as a tentative definition.
---
 share/txr/stdlib/struct.tl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl
index b180a2d5..b1d0acfd 100644
--- a/share/txr/stdlib/struct.tl
+++ b/share/txr/stdlib/struct.tl
@@ -138,6 +138,7 @@
                 'defstruct bad))
       (let ((arg-sym (gensym))
             (type-sym (gensym)))
+        (register-tentative-def ^(struct-type . ,name))
         ^(sys:make-struct-type
            ',name ',super ',stat-slots ',inst-slots
            ,(if (or func-si-forms val-si-forms)
-- 
cgit v1.2.3