diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-29 22:40:17 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-29 22:40:17 -0800 |
| commit | 742f4908ae6b3f03930434594a56e5449e5fe4f2 (patch) | |
| tree | f70241e038aa5bf4aa2cf32a693f8ec4f348867e /tests | |
| parent | fb5b723fb7da2824a29cac475381056e3dfe1d52 (diff) | |
| download | txr-742f4908ae6b3f03930434594a56e5449e5fe4f2.tar.gz txr-742f4908ae6b3f03930434594a56e5449e5fe4f2.tar.bz2 txr-742f4908ae6b3f03930434594a56e5449e5fe4f2.zip | |
conformance: handle macro wrong clause syntax.
Contrary to the documentation, handle doesn't in fact have the
same syntax as catch. It passes the exception symbol to
clauses as the leftmost argument, followed by the exception
arguments, whereas catch passes only the exception arguments.
* share/txr/stdlib/except.tl (handle): Do not pass the
exception sybmol as the leftmost argument, unless operating
in TXR 161 or earlier compatibility.
* tests/012/except.tl: drop exception symbol argument from
handle clause.
* txr.1: Compatibility note added.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/except.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/012/except.tl b/tests/012/except.tl index 1eb85017..7fe9dad2 100644 --- a/tests/012/except.tl +++ b/tests/012/except.tl @@ -8,7 +8,7 @@ (test (handle (list (cont (throw 'd 1)) (cont (throw 'c 2))) - (a (exc arg) + (a (arg) (let ((cont (find-frame 'cont))) (if cont (progn |