mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Fix error in exception printer when bootstrapping

Browse source 
* module/ice-9/boot-9.scm (exception-printers): Fix error in which, for
  a pure bootstrap with no compiled files, the exception printer would
  use false-with-exception before it has been defined, which doesn't
  work for macros.  We wouldn't see this problem normally because,
  oddly, the macro is indeed defined normally because of boot reasons.
This commit is contained in:
Andy Wingo 2016-04-13 11:12:24 +02:00
parent a9cf9f424f
commit 110695c82e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -895,7 +895,10 @@ for key @var{k}, then invoke @var{thunk}."
(when frame
(print-location frame port)
(let ((name (false-if-exception (frame-procedure-name frame))))
;; When booting, false-if-exception isn't defined yet.
(let ((name (catch #t
(lambda () (frame-procedure-name frame))
(lambda _ #f))))
(when name
(format port "In procedure ~a:\n" name))))