[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Print exception location only once.
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: Print exception location only once. |
Date: |
Thu, 9 Nov 2017 15:57:37 -0500 (EST) |
civodul pushed a commit to branch stable-2.2
in repository guile.
commit b322ac67d37c100c58a95a3515f89a0328c6370e
Author: Ludovic Courtès <address@hidden>
Date: Thu Nov 9 21:56:39 2017 +0100
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.
---
module/ice-9/boot-9.scm | 1 -
1 file changed, 1 deletion(-)
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 7127d73..4e51e92 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)))