summaryrefslogtreecommitdiff
path: root/module/system/vm/disassembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-29 17:59:00 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-30 18:46:14 +0100
commit1b1c9125446fc1386042e0bba1a2da6caec5334d (patch)
treebc393e870c37f4c3a89b5ce55c3ac8745f781f7e /module/system/vm/disassembler.scm
parent321c32dc9d4799afed4783f82d3cbb50a561dee0 (diff)
downloadguile-1b1c9125446fc1386042e0bba1a2da6caec5334d.tar.gz
Unknown files print as (unknown file) in disassembler
* module/system/vm/disassembler.scm (disassemble-buffer): Print unknown files as "(unknown file)".
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r--module/system/vm/disassembler.scm2
1 files changed, 1 insertions, 1 deletions
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)))))))