diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-01-28 19:42:38 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-01-28 19:42:38 -0800 |
| commit | 9f3017b83ef9bd14bc7a4ed580e46790450ca39d (patch) | |
| tree | 8c8c62b9b54c49d014f180b03f5115af5bbddefc /mpi | |
| parent | 8746b638f0fe422dc7ba532c2b16d793438c0006 (diff) | |
| download | txr-9f3017b83ef9bd14bc7a4ed580e46790450ca39d.tar.gz txr-9f3017b83ef9bd14bc7a4ed580e46790450ca39d.tar.bz2 txr-9f3017b83ef9bd14bc7a4ed580e46790450ca39d.zip | |
@(next): Cover Lisp expressions with :nothrow.
We would like @(next (open-directory "nonexistent") :nothrow)
to act as a failed match, rather than for the exception to
propagate (and likely terminate TXR). The problem is that
only file sources are treated with :nothrow.
* match.c (tleval_nothrow, tleval_144_nothrow): New static
functions.
(v_next_impl): Use tleval_nothrow for all Lisp evaluation. If
nothrow is requested and Lisp evaluation returns the colon
symbol (which tleval_nothrow produces in the case of an
exception), then treat the situation as a failed match.
Diffstat (limited to 'mpi')
0 files changed, 0 insertions, 0 deletions