compiler.cfg.debugger: reset vreg counters

2009-07-27 22:28:13 -05:00 · 2009-07-27 22:28:13 -05:00 · 423d2996fa
parent bfb2a4c1fc
commit 423d2996fa
1 changed files with 2 additions and 0 deletions
--- a/basis/compiler/cfg/debugger/debugger.factor
+++ b/basis/compiler/cfg/debugger/debugger.factor
@ -14,9 +14,11 @@ IN: compiler.cfg.debugger
 GENERIC: test-cfg ( quot -- cfgs )

 M: callable test-cfg
+    0 vreg-counter set-global
    build-tree optimize-tree gensym build-cfg ;

 M: word test-cfg
+    0 vreg-counter set-global
    [ build-tree optimize-tree ] keep build-cfg ;

 : test-mr ( quot -- mrs )