summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobin Templeton <robin@terpri.org>2014-06-10 22:57:05 -0400
committerChristine Lemmer-Webber <cwebber@dustycloud.org>2021-10-19 18:02:52 -0400
commit51bd3086db5a398d840334197bcc9f4062758945 (patch)
tree3e8b75e498dd0c7d7de19d3c7c4c418c0f9a031d
parent4e96211eb666751b8666beb918bf3108aa1c725b (diff)
downloadguile-51bd3086db5a398d840334197bcc9f4062758945.tar.gz
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?".
-rw-r--r--module/system/vm/assembler.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 8868343d7..93cbb4d70 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -2007,7 +2007,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)