From 7b807746cd98b883d16865b755f320c6579d06e1 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 16 Jan 2017 01:50:49 -0800
Subject: defstruct: use warning for bad base

* share/txr/stdlib/struct.tl (defstruct): Making
nonexistent base type a deferrable warning.
---
 share/txr/stdlib/struct.tl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'share')

diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl
index e4c6b1f3..df9393f1 100644
--- a/share/txr/stdlib/struct.tl
+++ b/share/txr/stdlib/struct.tl
@@ -114,10 +114,10 @@
                                   ^(:instance ,name nil)))))
            (super-type (if super
                          (or (find-struct-type super)
-                             (compile-error form
-                                            "inheritance base ~s \
-                                            \ does not name a struct type"
-                                            super))))
+                             (compile-defr-warning form ^(struct-type . ,super)
+                                                   "inheritance base ~s \
+                                                   \ does not name a struct type"
+                                                   super))))
            (stat-si-forms [keep-if (op member @1 '(:static :function))
                                    slot-init-forms car])
            (pruned-si-forms (sys:prune-missing-inits stat-si-forms))
-- 
cgit v1.2.3