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

Merge remote-tracking branch 'origin/stable-2.0'

Browse source
This commit is contained in:
Andy Wingo 2012-05-11 14:31:17 +02:00
commit ee6207d6f5
4 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -875,7 +875,8 @@ information is unavailable."
(let ((proc (frame-procedure frame)))
(print-location frame port)
(format port "In procedure ~a:\n"
(or (procedure-name proc) proc))))
(or (false-if-exception (procedure-name proc))
proc))))
(print-location frame port)
(catch #t

2
module/system/vm/frame.scm
View file

@ -99,7 +99,7 @@
(define (frame-call-representation frame)
(let ((p (frame-procedure frame)))
(cons
(or (procedure-name p) p)
(or (false-if-exception (procedure-name p)) p)
(cond
((and (program? p)
(program-arguments-alist p (frame-instruction-pointer frame)))