diff options
author | Robin Templeton <robin@terpri.org> | 2014-06-10 22:57:05 -0400 |
---|---|---|
committer | Christine Lemmer-Webber <cwebber@dustycloud.org> | 2021-10-19 18:02:52 -0400 |
commit | 51bd3086db5a398d840334197bcc9f4062758945 (patch) | |
tree | 3e8b75e498dd0c7d7de19d3c7c4c418c0f9a031d | |
parent | 4e96211eb666751b8666beb918bf3108aa1c725b (diff) | |
download | guile-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.scm | 2 |
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) |