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 | dd99f2a90d3583142dad69f2e89105b686299722 (patch) | |
| tree | 505a989dc670298929bb0b3b1de1f9a490acc29b | |
| parent | 69b5a0b4aac82baffabce1d884c77b5268d2777f (diff) | |
| download | txr-dd99f2a90d3583142dad69f2e89105b686299722.tar.gz txr-dd99f2a90d3583142dad69f2e89105b686299722.tar.bz2 txr-dd99f2a90d3583142dad69f2e89105b686299722.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) |