mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

Fix another intset transient bug

Browse source 
* module/language/cps/intset.scm (intset-add!): If the root is a
  branch but isn't editable, be sure to actually update the transient
  intset's root to store the writable root.
This commit is contained in:
Andy Wingo 2015-05-09 14:52:47 +02:00
parent f95a794a3d
commit 7fedd7b7ad
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/cps/intset.scm
View file

@ -232,7 +232,10 @@
;; Add element to set; level will not change. ;; Add element to set; level will not change.
(if (= shift *leaf-bits*) (if (= shift *leaf-bits*)
(set-transient-intset-root! bs (adjoin-leaf (- i min) root)) (set-transient-intset-root! bs (adjoin-leaf (- i min) root))
(adjoin-branch! (- i min) shift root))) (let ((root* (writable-branch root edit)))
(unless (eq? root root*)
(set-transient-intset-root! bs root*))
(adjoin-branch! (- i min) shift root*))))
(else (else
(let lp ((min min) (let lp ((min min)
(shift shift) (shift shift)