diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-29 17:59:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-30 18:46:14 +0100 |
commit | 1b1c9125446fc1386042e0bba1a2da6caec5334d (patch) | |
tree | bc393e870c37f4c3a89b5ce55c3ac8745f781f7e /module/system/vm/disassembler.scm | |
parent | 321c32dc9d4799afed4783f82d3cbb50a561dee0 (diff) | |
download | guile-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.scm | 2 |
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))))))) |