mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 13:58:15 -05:00
ui: Ignore 'raise-exception' frames when reporting exceptions.
* guix/ui.scm (last-frame-with-source): Check whether FRAME corresponds to 'raise-exception' and skip it if it does.
This commit is contained in:
parent
b2504b1205
commit
abbb98714b
1 changed files with 5 additions and 1 deletions
|
@ -175,7 +175,11 @@ (define (frame-with-source frame)
|
|||
(previous frame))
|
||||
(if (not frame)
|
||||
previous
|
||||
(if (frame-source frame)
|
||||
|
||||
;; On Guile 3, the latest frame with source may be that of
|
||||
;; 'raise-exception' in boot-9.scm. Skip it.
|
||||
(if (and (frame-source frame)
|
||||
(not (eq? 'raise-exception (frame-procedure-name frame))))
|
||||
frame
|
||||
(loop (frame-previous frame) frame)))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue