kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

ui: Ignore 'raise-exception' frames when reporting exceptions.

Browse Source 
* 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:
Ludovic Courtès 2020-01-17 17:11:34 +01:00
parent b2504b1205
commit abbb98714b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/ui.scm
View File

@ -175,7 +175,11 @@ information, or #f if it could not be found."
(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)))))