Unknown files print as (unknown file) in disassembler

* module/system/vm/disassembler.scm (disassemble-buffer): Print unknown
  files as "(unknown file)".

diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index 497aa58..577124a 100644 (file)
--- 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)))))))