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 2fbea96378d5bb79d84aca251abb33053bd02d70..53957a303e0b28500e3ea0fba3de1d6f7474d28e 100644 (file)
--- a/vm/code_block.c
+++ b/vm/code_block.c
@@ -224,7 +224,8 @@ void mark_object_code_block(CELL scan)
        {
        case WORD_TYPE:
                word = (F_WORD *)scan;
-               mark_code_block(word->code);
+               if(word->code)
+                 mark_code_block(word->code);
                if(word->profiling)
                        mark_code_block(word->profiling);
                break;