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 | 37e9a5d1f8ec90c2fe1cddd0546655ad2afc1dac (patch) | |
| tree | e06642e40089b8d070fe3c3b8605d5a6d334d178 /share | |
| parent | 0b1a45f1d98b22d1e18345d2cab888276f5f227f (diff) | |
| download | txr-37e9a5d1f8ec90c2fe1cddd0546655ad2afc1dac.tar.gz txr-37e9a5d1f8ec90c2fe1cddd0546655ad2afc1dac.tar.bz2 txr-37e9a5d1f8ec90c2fe1cddd0546655ad2afc1dac.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.
Diffstat (limited to 'share')
| -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") |