diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-16 00:28:45 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-16 00:28:45 -0800 |
| commit | de5f114936cd87e0a5d8c8e9701d0feba8937a10 (patch) | |
| tree | 505a989dc670298929bb0b3b1de1f9a490acc29b | |
| parent | 740d3a6fb39244c805ae3172ef019d5bffac7149 (diff) | |
| download | txr-de5f114936cd87e0a5d8c8e9701d0feba8937a10.tar.gz txr-de5f114936cd87e0a5d8c8e9701d0feba8937a10.tar.bz2 txr-de5f114936cd87e0a5d8c8e9701d0feba8937a10.zip | |
defstruct registers tentative definition.
* share/txr/stdlib/struct.tl (defstruct): Register the struct
ame as a tentative definition.
| -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) |