From 484b0db24be2d6275eeb1c29242fea6c2c1412f5 Mon Sep 17 00:00:00 2001
From: Robin Templeton <robin@terpri.org>
Date: Tue, 10 Jun 2014 22:57:05 -0400
Subject: 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?".
---
 module/system/vm/assembler.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3