mhw pushed a commit to branch master
in repository guile.
commit 015c3c08af2064145d423cef0d94f04069c3e87e
Author: Mark H Weaver <[email protected]>
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 <[email protected]>.
* 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))))
