diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-05-03 06:41:18 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-05-03 06:41:18 -0700 |
| commit | f046ace5dd2244d5b775ff0da7ebd2ec479505bc (patch) | |
| tree | 8fa19d7e1219a726dcd41efc00dbbaa75cd4cd15 | |
| parent | 1d496164aff177ba44d3dfaa50cbafd40000965e (diff) | |
| download | txr-f046ace5dd2244d5b775ff0da7ebd2ec479505bc.tar.gz txr-f046ace5dd2244d5b775ff0da7ebd2ec479505bc.tar.bz2 txr-f046ace5dd2244d5b775ff0da7ebd2ec479505bc.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/debugger.tl | 4 |
1 files 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 |