[Guile-commits] 01/01: Check for missing debug info in print-program

[Robin Templeton]

bpt pushed a commit to branch master
in repository guile.

commit cb421b6546ad3e09299462df63c389aa734fdba8
Author: Robin Templeton <address@hidden>
Date:   Sat Aug 27 13:42:10 2016 -0400

    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.
---
 module/system/vm/program.scm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 9f5b764..32c96f2 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -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)))