mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 19:20:23 +02:00
Code Activity

check symbols constants uninterned

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* module/system/vm/assembler.scm (intern-constant, link-data):
  Update to check "symbol-interned?".
This commit is contained in:
Robin Templeton 2014-06-10 22:57:05 -04:00 • committed by Christine Lemmer-Webber
parent 4e96211eb6
commit 51bd3086db
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/assembler.scm
View file

@ -2007,7 +2007,7 @@ should be .data or .rodata), and return the resulting linker object.
(write-constant-reference buf pos elt) (write-constant-reference buf pos elt)
(lp (1+ i))))))) (lp (1+ i)))))))
((symbol? obj) ((and (symbol? obj) (symbol-interned? obj))
(write-placeholder asm buf pos)) (write-placeholder asm buf pos))
((keyword? obj) ((keyword? obj)