vm: fix typo

diff --git a/vm/contexts.cpp b/vm/contexts.cpp
index 94bbe7d508b9ae6630b4b05b9ddc22e2a19a2668..6247b879c606c2f91e3419693192238a3bc8c4bc 100644 (file)
--- a/vm/contexts.cpp
+++ b/vm/contexts.cpp
@@ -75,7 +75,7 @@ void context::scrub_stacks(gc_info *info, cell index)
                for(cell loc = 0; loc < info->scrub_r_count; loc++)
                {
                        if(bitmap_p(bitmap,base + loc))
-                               printf("scrub retainstack %ld\n",loc);
+                               ((cell *)retainstack)[-loc] = 0;
                }
        }
 }