diff options
| author | Robin Templeton <robin@terpri.org> | 2014-06-10 22:57:05 -0400 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-04 16:19:53 +0200 |
| commit | 484b0db24be2d6275eeb1c29242fea6c2c1412f5 (patch) | |
| tree | 8edf76e6bf6352ff4578733bd59c0360ee038041 | |
| parent | b04e79283ada9a6af05552dda6446a0934c0fbe2 (diff) | |
check symbols constants uninterned
(Best-ability ChangeLog annotation added by Christopher Allan 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 7607c191b..343f4f1ff 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -1547,7 +1547,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) |