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 | 62b3ad0287220d5f0cd29bc4376399fce2692d41 (patch) | |
| tree | 8fa19d7e1219a726dcd41efc00dbbaa75cd4cd15 | |
| parent | 6c2696d8cc9c636c7fddcd9f4479d56e1f08e800 (diff) | |
| download | txr-62b3ad0287220d5f0cd29bc4376399fce2692d41.tar.gz txr-62b3ad0287220d5f0cd29bc4376399fce2692d41.tar.bz2 txr-62b3ad0287220d5f0cd29bc4376399fce2692d41.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 |