diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-11-09 21:56:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-11-09 21:56:39 +0100 |
| commit | b322ac67d37c100c58a95a3515f89a0328c6370e (patch) | |
| tree | b860cfb9324286c82ee087fd39bbddf9fb06da8b /module/ice-9 | |
| parent | 81d2e352663bc5f80734312fec90f250b1fbe2e4 (diff) | |
Print exception location only once.
Fixes a regression introduced in commit
39090e677eed54761e0952f2575ddef1504545d3.
* module/ice-9/boot-9.scm (exception-printers)[print-exception]: Remove
extraneous 'print-location' call.
Diffstat (limited to 'module/ice-9')
| -rw-r--r-- | module/ice-9/boot-9.scm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 7127d73f7..4e51e9281 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -886,7 +886,6 @@ for key @var{k}, then invoke @var{thunk}." (when name (format port "In procedure ~a:\n" name)))) - (print-location frame port) (catch #t (lambda () (let ((printer (assq-ref exception-printers key))) |