io.streams.256color: faster by caching styles

[factor.git] / vm / words.cpp

diff --git a/vm/words.cpp b/vm/words.cpp
index bfb77cc1189714c31921e339a25aa2eecb3e5d58..cce37446ed5ce91926388172a2eb9480560aec83 100644 (file)
--- a/vm/words.cpp
+++ b/vm/words.cpp
@@ -59,7 +59,7 @@ void factor_vm::primitive_word() {
 // Allocates memory (from_unsigned_cell allocates)
 void factor_vm::primitive_word_code() {
   data_root<word> w(ctx->pop(), this);
-  w.untag_check(this);
+  check_tagged(w);
 
   ctx->push(from_unsigned_cell(w->entry_point));
   ctx->push(from_unsigned_cell((cell)w->code() + w->code()->size()));