io.streams.256color: faster by caching styles

[factor.git] / vm / words.cpp

diff --git a/vm/words.cpp b/vm/words.cpp
index ad87dfe96e59e93a91768458a7ff707722ec052c..cce37446ed5ce91926388172a2eb9480560aec83 100644 (file)
--- a/vm/words.cpp
+++ b/vm/words.cpp
@@ -67,7 +67,8 @@ void factor_vm::primitive_word_code() {
 
 void factor_vm::primitive_word_optimized_p() {
   word* w = untag_check<word>(ctx->peek());
-  ctx->replace(tag_boolean(w->code()->optimized_p()));
+  cell t = w->code()->type();
+  ctx->replace(tag_boolean(t == CODE_BLOCK_OPTIMIZED));
 }
 
 // Allocates memory