diff options
| -rw-r--r-- | share/txr/stdlib/struct.tl | 1 |
1 files changed, 1 insertions, 0 deletions
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) |