From b322ac67d37c100c58a95a3515f89a0328c6370e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 9 Nov 2017 21:56:39 +0100
Subject: [PATCH] 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 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)))