mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Print exception location only once.

Browse source 
Fixes a regression introduced in commit
39090e677e.

* module/ice-9/boot-9.scm (exception-printers)[print-exception]: Remove
extraneous 'print-location' call.
This commit is contained in:
Ludovic Courtès 2017-11-09 21:56:39 +01:00
parent 81d2e35266
commit b322ac67d3
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/ice-9/boot-9.scm
View file

@ -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)))