mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 07:10:20 +02:00
Code Activity

intset-next starting point is optional

Browse source 
* module/language/cps/intset.scm (intset-remove): Remove incorrect comment.
  (intset-next): "i" is optional.
This commit is contained in:
Andy Wingo 2015-05-24 16:51:01 +02:00
parent 8f578af0bb
commit 6a42ac74ce
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -327,7 +327,6 @@
(cond (cond
((not root) bs) ((not root) bs)
((and (<= min i) (< i (+ min (ash 1 shift)))) ((and (<= min i) (< i (+ min (ash 1 shift))))
;; Add element to set; level will not change.
(let ((old-root root) (let ((old-root root)
(root (remove (- i min) shift root))) (root (remove (- i min) shift root)))
(if (eq? root old-root) (if (eq? root old-root)
@ -353,7 +352,7 @@
(assert-readable! edit) (assert-readable! edit)
(ref min shift root)))) (ref min shift root))))
(define (intset-next bs i) (define* (intset-next bs #:optional i)
(define (visit-leaf node i) (define (visit-leaf node i)
(let lp ((idx (logand i *leaf-mask*))) (let lp ((idx (logand i *leaf-mask*)))
(if (logbit? idx node) (if (logbit? idx node)