diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/error.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/share/txr/stdlib/error.tl b/share/txr/stdlib/error.tl index 42d5d6b9..a7885c3f 100644 --- a/share/txr/stdlib/error.tl +++ b/share/txr/stdlib/error.tl @@ -39,7 +39,10 @@ (loc (sys:loc nctx)) (name (sys:ctx-name nctx))) (dump-deferred-warnings *stderr*) - (throwf 'eval-error `@loc: ~s: @fmt` name . args))) + (let ((msg (fmt `@loc: ~s: @fmt` name . args))) + (when *load-recursive* + (put-line msg *stderr*)) + (throw 'eval-error msg)))) (defun compile-warning (ctx fmt . args) (let* ((nctx (sys:dig ctx)) |