diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-04-19 01:05:15 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-04-19 01:05:15 -0700 |
| commit | 8a1af20f71b6b75dfc25e32c2c190ea1c539d484 (patch) | |
| tree | 0aea3bd893eec1abf66911c87cceaef915a41bd0 /share | |
| parent | 9e334c1762dc964c6e267dca3780db3a7c8493c7 (diff) | |
| download | txr-8a1af20f71b6b75dfc25e32c2c190ea1c539d484.tar.gz txr-8a1af20f71b6b75dfc25e32c2c190ea1c539d484.tar.bz2 txr-8a1af20f71b6b75dfc25e32c2c190ea1c539d484.zip | |
backtrace: adjust backtrace formatting.
* share/txr/stdlib/debug.tl (print-backtrace): Force
indentation and formatting off, and set maximum length and
depth to condense the backtrace output.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/debugger.tl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/share/txr/stdlib/debugger.tl b/share/txr/stdlib/debugger.tl index 9afab9ef..07cbcfe8 100644 --- a/share/txr/stdlib/debugger.tl +++ b/share/txr/stdlib/debugger.tl @@ -45,8 +45,12 @@ (mapdo (ap pprinl `@{@1 15} @3`) %dbg-commands%)) (defun print-backtrace (: (*stdout* *stdout*) (prefix "")) - (with-resources ((imode (set-indent-mode *stdout* indent-off) - (set-indent-mode *stdout* imode))) + (with-resources ((imode (set-indent-mode *stdout* indent-foff) + (set-indent-mode *stdout* imode)) + (depth (set-max-depth *stdout* 4) + (set-max-depth *stdout* depth)) + (length (set-max-length *stdout* 10) + (set-max-length *stdout* length))) (each ((fr (find-frames-by-mask uw-fcall))) (let* ((fun fr.fun) (args fr.args) |