mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 13:00:26 +02:00
Check for missing debug info in print-program
* module/system/vm/program.scm (print-program): Check the return value of find-program-debug-info. Fixes #24320.
This commit is contained in:
parent
b494bc1743
commit
cb421b6546
1 changed files with 1 additions and 1 deletions
|
@ -265,7 +265,7 @@ lists."
|
|||
;; It could be the procedure had its name property set via the
|
||||
;; procedure property interface.
|
||||
(name (or (and program (procedure-name program))
|
||||
(program-debug-info-name pdi)))
|
||||
(and pdi (program-debug-info-name pdi))))
|
||||
(source (match (find-program-sources addr)
|
||||
(() #f)
|
||||
((source . _) source)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue