Merge branch 'master' into inline_caching

[factor.git] / vm / code_block.c

diff --git a/vm/code_block.c b/vm/code_block.c
index 1ce440c9aba0de70507265f292dbb20d71169fbb..53957a303e0b28500e3ea0fba3de1d6f7474d28e 100644 (file)
--- a/vm/code_block.c
+++ b/vm/code_block.c
@@ -220,7 +220,7 @@ void mark_object_code_block(CELL scan)
        F_QUOTATION *quot;
        F_CALLSTACK *stack;
 
-       switch(object_type(scan))
+       switch(hi_tag(scan))
        {
        case WORD_TYPE:
                word = (F_WORD *)scan;