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

itself from the edges of its conflicting nodes.
2007-03-11 20:07:00 -04:00 · 2007-03-11 20:07:00 -04:00 · 2b6bcc324b
parent c473619084
commit 2b6bcc324b
2 changed files with 2 additions and 2 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libaltcogen.ss
+++ b/src/libaltcogen.ss
@ -1771,8 +1771,8 @@
                   (set-var-loc! x fv)
                   (for-each-var vars varvec
                     (lambda (var)
-                       (set-var-var-conf! var
-                         (rem-var x (var-var-conf var)))
+                       ;(set-var-var-conf! var
+                       ;  (rem-var x (var-var-conf var)))
                       (set-var-frm-conf! var
                         (add-frm fv (var-frm-conf var)))))
                   fv)]))))