diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-10-10 23:12:40 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-10-10 23:12:40 -0700 |
| commit | c68ee2c432758a6fde0b79afbb0fdcc7db628a7b (patch) | |
| tree | 853652af0f9c7191032340edd7c448a58b9dfb3c /share | |
| parent | d9bffb33b7688ee0a9a61f822978ce11f8a6fda5 (diff) | |
| download | txr-c68ee2c432758a6fde0b79afbb0fdcc7db628a7b.tar.gz txr-c68ee2c432758a6fde0b79afbb0fdcc7db628a7b.tar.bz2 txr-c68ee2c432758a6fde0b79afbb0fdcc7db628a7b.zip | |
defstruct bugfix: nonexistent function called.
* share/txr/stdlib/struct.tl (defstruct): The nonexistent
uw-throwf function was called instead of throw.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index bd049f75..dcfcc864 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -72,9 +72,9 @@ (unless (bindable arg) (sys:bad-slot-syntax slot)) (when instance-init-form - (uw-throwf 'eval-error - "~s: duplicate :init" - 'defstruct)) + (throw 'eval-error + "~s: duplicate :init" + 'defstruct)) (set instance-init-form (cons arg body)) ^(,word nil nil)) @@ -82,9 +82,9 @@ (unless (bindable arg) (sys:bad-slot-syntax slot)) (when instance-fini-form - (uw-throwf 'eval-error - "~s: duplicate :fini" - 'defstruct)) + (throw 'eval-error + "~s: duplicate :fini" + 'defstruct)) (set instance-fini-form (cons arg body)) ^(,word nil nil)) |