diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-04-06 06:33:45 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-04-06 06:33:45 -0700 |
| commit | 87b90e5ef348d54569785d7aa4143fe3edff55ea (patch) | |
| tree | d50a3db839e217c9f0d8e2f820a07f7ac75fadbd /share | |
| parent | 274c4b655b249a637e9a707db71d839c36829689 (diff) | |
| download | txr-87b90e5ef348d54569785d7aa4143fe3edff55ea.tar.gz txr-87b90e5ef348d54569785d7aa4143fe3edff55ea.tar.bz2 txr-87b90e5ef348d54569785d7aa4143fe3edff55ea.zip | |
Fix throw used instead of throwf in defstruct.
* share/txr/stdlib/struct.tl (defstruct): Errors about
duplicate :init, :postinit or :fini were incorrectly
thrown using throw rather than throwf.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index 2f1692f5..2f9dcfb4 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -74,9 +74,9 @@ (unless (bindable arg) (sys:bad-slot-syntax slot)) (when instance-init-form - (throw 'eval-error - "~s: duplicate :init" - 'defstruct)) + (throwf 'eval-error + "~s: duplicate :init" + 'defstruct)) (set instance-init-form (cons arg body)) ^(,word nil nil)) @@ -84,9 +84,9 @@ (unless (bindable arg) (sys:bad-slot-syntax slot)) (when instance-postinit-form - (throw 'eval-error - "~s: duplicate :postinit" - 'defstruct)) + (throwf 'eval-error + "~s: duplicate :postinit" + 'defstruct)) (set instance-postinit-form (cons arg body)) ^(,word nil nil)) @@ -94,9 +94,9 @@ (unless (bindable arg) (sys:bad-slot-syntax slot)) (when instance-fini-form - (throw 'eval-error - "~s: duplicate :fini" - 'defstruct)) + (throwf 'eval-error + "~s: duplicate :fini" + 'defstruct)) (set instance-fini-form (cons arg body)) ^(,word nil nil)) |