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

* when a variable is assigned a location, it does not need to remove 

itself from the edges of its conflicting nodes.
This commit is contained in:
Abdulaziz Ghuloum 2007-03-11 20:07:00 -04:00
parent c473619084
commit 2b6bcc324b
2 changed files with 2 additions and 2 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.

4
src/libaltcogen.ss
View File

@ -1771,8 +1771,8 @@
(set-var-loc! x fv) (set-var-loc! x fv)
(for-each-var vars varvec (for-each-var vars varvec
(lambda (var) (lambda (var)
(set-var-var-conf! var ;(set-var-var-conf! var
(rem-var x (var-var-conf var))) ; (rem-var x (var-var-conf var)))
(set-var-frm-conf! var (set-var-frm-conf! var
(add-frm fv (var-frm-conf var))))) (add-frm fv (var-frm-conf var)))))
fv)])))) fv)]))))