diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/error.tl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/share/txr/stdlib/error.tl b/share/txr/stdlib/error.tl index 12bda9ae..f437f863 100644 --- a/share/txr/stdlib/error.tl +++ b/share/txr/stdlib/error.tl @@ -37,7 +37,9 @@ (defun compile-warning (ctx fmt . args) (let ((loc (sys:loc ctx)) (name (sys:ctx-name ctx))) - (throwf 'warning `@loc~s: @fmt` name . args))) + (catch + (throwf 'warning `@loc~s: @fmt` name . args) + (continue ())))) (defun compile-defr-warning (ctx tag fmt . args) (let ((loc (sys:loc ctx)) |