diff options
Diffstat (limited to 'share/txr/stdlib/trace.tl')
| -rw-r--r-- | share/txr/stdlib/trace.tl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/share/txr/stdlib/trace.tl b/share/txr/stdlib/trace.tl index 951b67f8..33a1bf08 100644 --- a/share/txr/stdlib/trace.tl +++ b/share/txr/stdlib/trace.tl @@ -16,7 +16,9 @@ (each ((n names)) (unless [sys:*trace-hash* n] (let* ((name n) - (prev (symbol-function n)) + (prev (or (symbol-function n) + (throwf 'eval-error + "~s: ~s does not name a function" 'trace n))) (hook (lambda (. args) (let ((abandoned t) (sys:*trace-level* (succ sys:*trace-level*))) |