diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-04-29 06:07:56 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-04-29 06:07:56 -0700 |
| commit | 3c027a3fe158716ff63f679a574da6ed206c1d10 (patch) | |
| tree | e06642e40089b8d070fe3c3b8605d5a6d334d178 | |
| parent | 2e3f35ee136ac103e0a0412ce15f56b706520c6f (diff) | |
| download | txr-3c027a3fe158716ff63f679a574da6ed206c1d10.tar.gz txr-3c027a3fe158716ff63f679a574da6ed206c1d10.tar.bz2 txr-3c027a3fe158716ff63f679a574da6ed206c1d10.zip | |
backtrace: check next frame for nil.
* share/txr/stdlib/debug.tl (fcall-frame print-trace): Don't
invoke .(loc) method on nx-fr, if it is nil.
| -rw-r--r-- | share/txr/stdlib/debugger.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/debugger.tl b/share/txr/stdlib/debugger.tl index 9cd52b61..8eeb9ce2 100644 --- a/share/txr/stdlib/debugger.tl +++ b/share/txr/stdlib/debugger.tl @@ -51,7 +51,7 @@ (args fr.args) (name (if (functionp fun) (func-get-name fun))) - (loc nx-fr.(loc)) + (loc (if nx-fr nx-fr.(loc))) (kind (cond ((interp-fun-p fun) "I") |