diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/trace.tl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/share/txr/stdlib/trace.tl b/share/txr/stdlib/trace.tl index ae4ea7ce..28e569e6 100644 --- a/share/txr/stdlib/trace.tl +++ b/share/txr/stdlib/trace.tl @@ -110,10 +110,10 @@ (throwf 'warning "~!~s won't be traced, though it overrides\n\ ~s which is currently traced" name orig-name)) - (t (throwf 'warning "previously traced ~s is redefined and no\ \ + (t (sys:untrace (list name)) + (throwf 'warning "previously traced ~s is redefined and no\ \ longer traced" - name) - (sys:untrace (list name)))) + name))) (continue ()))))) (defmacro usr:trace (. names) |