[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 @@
(cond
((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)
- [Guile-commits] branch master updated (48b2f19 -> 6e725df), Andy Wingo, 2015/06/02
- [Guile-commits] 01/12: Fix regression in compute-idoms, Andy Wingo, 2015/06/02
- [Guile-commits] 03/12: Add intmap-replace., Andy Wingo, 2015/06/02
- [Guile-commits] 04/12: intset-next starting point is optional,
Andy Wingo <=
- [Guile-commits] 02/12: Fix type-fold on multiplying exact numbers, Andy Wingo, 2015/06/02
- [Guile-commits] 06/12: DCE uses type analysis to find dead code, Andy Wingo, 2015/06/02
- [Guile-commits] 08/12: Fix compute-defining-expressions (and thereby compute-constant-values), Andy Wingo, 2015/06/02
- [Guile-commits] 07/12: Add intmap-replace!., Andy Wingo, 2015/06/02
- [Guile-commits] 09/12: Port prune-top-level-scopes pass to CPS2, Andy Wingo, 2015/06/02
- [Guile-commits] 10/12: Add intmap-fold-right, Andy Wingo, 2015/06/02
- [Guile-commits] 11/12: Add "intset" syntax to construct intsets., Andy Wingo, 2015/06/02
- [Guile-commits] 05/12: Port type inference module to CPS2, Andy Wingo, 2015/06/02
- [Guile-commits] 12/12: Port contification pass to CPS2., Andy Wingo, 2015/06/02