Put brackets around ipv6 addresses in `inet6 present`

[factor.git] / vm / quotations.cpp

diff --git a/vm/quotations.cpp b/vm/quotations.cpp
index 04f1bf1fec23ecee68467bb4fc3051805c3e3328..d4c99655661ce12d8cc0cf2dc44cfd8bdb5d0317 100644 (file)
--- a/vm/quotations.cpp
+++ b/vm/quotations.cpp
@@ -43,7 +43,7 @@ inline cell quotation_jit::nth(cell index) {
 }
 
 void quotation_jit::init_quotation(cell quot) {
-  elements = untag<quotation>(quot)->array;
+  elements.set_value(untag<quotation>(quot)->array);
 }
 
 bool quotation_jit::fast_if_p(cell i, cell length) {
@@ -293,8 +293,8 @@ code_block* factor_vm::jit_compile_quotation(cell owner_, cell quot_,
 
   cell frame_size = compiler.word_stack_frame_size(owner_);
 
-  code_block* compiled = compiler.to_code_block(frame_size);
-
+  code_block* compiled = compiler.to_code_block(CODE_BLOCK_UNOPTIMIZED,
+                                                frame_size);
   if (relocating)
     initialize_code_block(compiled);