diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/error.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/error.tl b/share/txr/stdlib/error.tl index f437f863..f0876ef1 100644 --- a/share/txr/stdlib/error.tl +++ b/share/txr/stdlib/error.tl @@ -45,5 +45,5 @@ (let ((loc (sys:loc ctx)) (name (sys:ctx-name ctx))) (catch - (throw 'warning (fmt `@loc~s: @fmt` name . args) . tag) + (throw 'defr-warning (fmt `@loc~s: @fmt` name . args) tag) (continue ())))) |