constant-interning fix

diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 05b23a3..bb4ddf7 100644 (file)
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -911,7 +911,8 @@ table, its existing label is used directly."
      (else
       (if (asm-to-file? asm)
           (error "don't know how to intern" obj)
-          `((vector-ref/immediate 1 0 ,(vlist-length (asm-constants asm)))
+          `((make-short-immediate 1 ,(vlist-length (asm-constants asm)))
+            (vector-ref 1 0 1)
             (static-set! 1 ,label 0))))))
   (cond
    ((immediate? obj) #f)