From 2ced91b2234a5f6812548d21fd083c84ba28be3b Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Tue, 10 Jun 2014 22:57:05 -0400 Subject: [PATCH] check symbols constants uninterned --- module/system/vm/assembler.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 3aaa61d23..05b23a32f 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -876,7 +876,7 @@ table, its existing label is used directly." ((static-procedure? obj) `((static-patch! ,label 1 ,(static-procedure-code obj)))) ((cache-cell? obj) '()) - ((symbol? obj) + ((and (symbol? obj) (symbol-interned? obj)) `((make-non-immediate 1 ,(recur (symbol->string obj))) (string->symbol 1 1) (static-set! 1 ,label 0))) @@ -1359,7 +1359,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-immediate asm buf pos #f)) ((keyword? obj) -- 2.20.1