From cb421b6546ad3e09299462df63c389aa734fdba8 Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Sat, 27 Aug 2016 13:42:10 -0400 Subject: [PATCH] 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 9f5b764d0..32c96f26a 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)))