From 62b3ad0287220d5f0cd29bc4376399fce2692d41 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 3 May 2019 06:41:18 -0700 Subject: debugger: use window-mapdo. * share/txr/stdlib/debugger.tl (print-backtrace): Use the new window-mapdo instead of window-map, to avoid consing a list that is throw away. --- share/txr/stdlib/debugger.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/debugger.tl b/share/txr/stdlib/debugger.tl index 26f30741..f724133e 100644 --- a/share/txr/stdlib/debugger.tl +++ b/share/txr/stdlib/debugger.tl @@ -94,8 +94,8 @@ (set-max-depth *stdout* depth)) (length (set-max-length *stdout* 10) (set-max-length *stdout* length))) - (window-map 1 nil (lambda (pr el nx) el.(print-trace pr nx prefix)) - (find-frames-by-mask (logior uw-fcall uw-eval uw-expand))))) + (window-mapdo 1 nil (lambda (pr el nx) el.(print-trace pr nx prefix)) + (find-frames-by-mask (logior uw-fcall uw-eval uw-expand))))) (defun debugger () (with-disabled-debugging -- cgit v1.2.3