* do-spill now removes spilled vars from neighbors of conflicting

vars.
2007-06-06 09:24:32 +03:00 · 2007-06-06 09:24:32 +03:00 · ae0b25ae9f
parent 0db57fbb69
commit ae0b25ae9f
2 changed files with 2 additions and 0 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libaltcogen.ss
+++ b/src/libaltcogen.ss
@ -2031,6 +2031,8 @@
            [else
             (for-each-var (var-var-conf x) varvec
               (lambda (y) 
+                 (set-var-var-conf! y
+                   (rem-var x (var-var-conf y)))
                 (set-var-frm-conf! y 
                   (add-frm fv (var-frm-conf y)))))
             (set-var-loc! x fv)