bpt pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 459ad1642daa4c54659dd40418b36ad7901a36bf
Author: Robin Templeton <ro...@terpri.org>
AuthorDate: Tue Jun 10 22:57:05 2014 -0400
check symbols constants uninterned
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
* module/system/vm/assembler.scm (intern-constant, link-data):
Update to check "symbol-interned?".
---
module/system/vm/assembler.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 1a39ab427..ca1206a00 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -2016,7 +2016,7 @@ should be .data or .rodata), and return the resulting
linker object.
(write-constant-reference buf pos elt)
(lp (1+ i)))))))
- ((symbol? obj)
+ ((and (symbol? obj) (symbol-interned? obj))
(write-placeholder asm buf pos))
((keyword? obj)
