From 8a1af20f71b6b75dfc25e32c2c190ea1c539d484 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 19 Apr 2019 01:05:15 -0700 Subject: 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. --- share/txr/stdlib/debugger.tl | 8 ++++++-- 1 file 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) -- cgit v1.2.3