[Guile-commits] 01/01: Assembler: Cope with non-string port filenames.

[Mark H. Weaver]

mhw pushed a commit to branch master
in repository guile.

commit 015c3c08af2064145d423cef0d94f04069c3e87e
Author: Mark H Weaver <address@hidden>
Date:   Sun Dec 14 10:24:00 2014 -0500

    Assembler: Cope with non-string port filenames.
    
    Fixes <http://bugs.gnu.org/19354>.
    Reported by Linas Vepstas <address@hidden>.
    
    * module/system/vm/assembler.scm (write-sources): Intern the filename
      only if it's a string.  (For sockets, the filename is a symbol).
---
 module/system/vm/assembler.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 97eade6..3d277ad 100644
--- 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))))