diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-04-13 10:04:39 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-04-13 10:04:39 -0700 |
| commit | ac44b7ae086063fbe204c5b6a97b4f6b1f35e6b8 (patch) | |
| tree | 3c2b01569c7c0d19420af5d7d581e555bf8dcdae | |
| parent | 175634f82fed58422258e80e94613c6bb18d8c10 (diff) | |
| download | txr-ac44b7ae086063fbe204c5b6a97b4f6b1f35e6b8.tar.gz txr-ac44b7ae086063fbe204c5b6a97b4f6b1f35e6b8.tar.bz2 txr-ac44b7ae086063fbe204c5b6a97b4f6b1f35e6b8.zip | |
ignwarn: handle warnings with multiple args.
* share/txr/stdlib/except.tl (ignwarn): Warnings have more
than one argument; the handling lambda must take variable
args.
| -rw-r--r-- | share/txr/stdlib/except.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/except.tl b/share/txr/stdlib/except.tl index aa2c214a..15d7a365 100644 --- a/share/txr/stdlib/except.tl +++ b/share/txr/stdlib/except.tl @@ -85,4 +85,4 @@ (sys:expand-handle form try-form handle-clauses)) (defmacro ignwarn (. forms) - ^(handler-bind (lambda (exc-sym arg) (throw 'continue)) (warning) ,*forms)) + ^(handler-bind (lambda (exc-sym . args) (throw 'continue)) (warning) ,*forms)) |