[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 04/12: intset-next starting point is optional

From: Andy Wingo
Subject: [Guile-commits] 04/12: intset-next starting point is optional
Date: Tue, 02 Jun 2015 08:33:50 +0000

wingo pushed a commit to branch master
in repository guile.

commit 6a42ac74ce686441d27271d3d3a3ce72e6681b13
Author: Andy Wingo <address@hidden>
Date:   Sun May 24 16:51:01 2015 +0200

    intset-next starting point is optional
    * module/language/cps/intset.scm (intset-remove): Remove incorrect comment.
      (intset-next): "i" is optional.
 module/language/cps/intset.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/intset.scm b/module/language/cps/intset.scm
index 3d20797..382a4ba 100644
--- a/module/language/cps/intset.scm
+++ b/module/language/cps/intset.scm
@@ -327,7 +327,6 @@
       ((not root) bs)
       ((and (<= min i) (< i (+ min (ash 1 shift))))
-       ;; Add element to set; level will not change.
        (let ((old-root root)
              (root (remove (- i min) shift root)))
          (if (eq? root old-root)
@@ -353,7 +352,7 @@
      (assert-readable! edit)
      (ref min shift root))))
-(define (intset-next bs i)
+(define* (intset-next bs #:optional i)
   (define (visit-leaf node i)
     (let lp ((idx (logand i *leaf-mask*)))
       (if (logbit? idx node)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]