Assembler: Cope with non-string port filenames.

Fixes <http://bugs.gnu.org/19354>.
Reported by Linas Vepstas <linasvepstas@gmail.com>.

* module/system/vm/assembler.scm (write-sources): Intern the filename
  only if it's a string.  (For sockets, the filename is a symbol).

diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 97eade6..3d277ad 100644 (file)
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -2141,7 +2141,7 @@ procedure with label @var{rw-init}.  @var{rw-init} may be false.  If
                  ;; Guile line and column numbers are 0-indexed, but
                  ;; they are 1-indexed for DWARF.
                  (cons (list pc
-                             (if file (intern-file file) 0)
+                             (if (string? file) (intern-file file) 0)
                              (if line (1+ line))
                              (if col (1+ col)))
                        out))))