mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 05:20:16 +02:00
Code Activity

Check for missing debug info in print-program

Browse source 
* module/system/vm/program.scm (print-program): Check the return value
  of find-program-debug-info. Fixes #24320.
This commit is contained in:
Robin Templeton 2016-08-27 13:42:10 -04:00
parent b494bc1743
commit cb421b6546
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -265,7 +265,7 @@ lists."
;; It could be the procedure had its name property set via the ;; It could be the procedure had its name property set via the
;; procedure property interface. ;; procedure property interface.
(name (or (and program (procedure-name program)) (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) (source (match (find-program-sources addr)
(() #f) (() #f)
((source . _) source))) ((source . _) source)))