From 1b1c9125446fc1386042e0bba1a2da6caec5334d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 29 Nov 2013 17:59:00 +0100 Subject: [PATCH] Unknown files print as (unknown file) in disassembler * module/system/vm/disassembler.scm (disassemble-buffer): Print unknown files as "(unknown file)". --- module/system/vm/disassembler.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 497aa58fa..577124a7e 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -335,7 +335,7 @@ address of that offset." ((< pc addr) (lp sources)) ((= pc addr) (format #f "~a:~a:~a" - (source-file source) + (or (source-file source) "(unknown file)") (source-line-for-user source) (source-column source))) (else #f)))))))