Move call( and execute( to core

[factor.git] / vm / quotations.c

diff --git a/vm/quotations.c b/vm/quotations.c
index ca1a8bb3b56eefc291a13253a6734247f291432c..8ea2d5839bb94876db2b3178e7557d6a5fc3eaa5 100755 (executable)
--- a/vm/quotations.c
+++ b/vm/quotations.c
@@ -514,6 +514,8 @@ void primitive_array_to_quotation(void)
        quot->array = dpeek();
        quot->xt = lazy_jit_compile;
        quot->compiledp = F;
+       quot->cached_effect = F;
+       quot->cache_counter = F;
        drepl(tag_object(quot));
 }