diff options
| -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) |