conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

vars.
This commit is contained in:
Abdulaziz Ghuloum 2007-06-06 09:24:32 +03:00
parent 0db57fbb69
commit ae0b25ae9f
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/libaltcogen.ss
View File

@ -2031,6 +2031,8 @@
[else [else
(for-each-var (var-var-conf x) varvec (for-each-var (var-var-conf x) varvec
(lambda (y) (lambda (y)
(set-var-var-conf! y
(rem-var x (var-var-conf y)))
(set-var-frm-conf! y (set-var-frm-conf! y
(add-frm fv (var-frm-conf y))))) (add-frm fv (var-frm-conf y)))))
(set-var-loc! x fv) (set-var-loc! x fv)