diff options
-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))))))) |