mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Add nullary intmap and intset folders

Browse source 
* module/language/cps/intmap.scm (intmap-fold, intmap-fold-right):
* module/language/cps/intset.scm (intset-fold, intset-fold-right): Add
  nullary folders.
This commit is contained in:
Andy Wingo 2017-11-29 19:57:11 +01:00
parent 16ed2aee88
commit b077e807c0
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/intmap.scm
View file

@ -513,6 +513,8 @@ already, and always calls the meet procedure."
(define intmap-fold (define intmap-fold
(case-lambda (case-lambda
((f map)
((make-intmap-folder #t) f map))
((f map seed) ((f map seed)
((make-intmap-folder #t seed) f map seed)) ((make-intmap-folder #t seed) f map seed))
((f map seed0 seed1) ((f map seed0 seed1)
@ -522,6 +524,8 @@ already, and always calls the meet procedure."
(define intmap-fold-right (define intmap-fold-right
(case-lambda (case-lambda
((f map)
((make-intmap-folder #f) f map))
((f map seed) ((f map seed)
((make-intmap-folder #f seed) f map seed)) ((make-intmap-folder #f seed) f map seed))
((f map seed0 seed1) ((f map seed0 seed1)

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

@ -1,5 +1,5 @@
;;; Functional name maps ;;; Functional name maps
;;; Copyright (C) 2014, 2015 Free Software Foundation, Inc. ;;; Copyright (C) 2014, 2015, 2017 Free Software Foundation, Inc.
;;; ;;;
;;; This library is free software: you can redistribute it and/or modify ;;; This library is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Lesser General Public License as ;;; it under the terms of the GNU Lesser General Public License as
@ -464,6 +464,8 @@
(define intset-fold (define intset-fold
(case-lambda (case-lambda
((f set)
((make-intset-folder #t) f set))
((f set seed) ((f set seed)
((make-intset-folder #t seed) f set seed)) ((make-intset-folder #t seed) f set seed))
((f set s0 s1) ((f set s0 s1)
@ -473,6 +475,8 @@
(define intset-fold-right (define intset-fold-right
(case-lambda (case-lambda
((f set)
((make-intset-folder #f) f set))
((f set seed) ((f set seed)
((make-intset-folder #f seed) f set seed)) ((make-intset-folder #f seed) f set seed))
((f set s0 s1) ((f set s0 s1)