mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +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 5f59e2812d
commit 76d4608d7a
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
;;; 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
;;; it under the terms of the GNU Lesser General Public License as
@ -464,6 +464,8 @@
(define intset-fold
(case-lambda
((f set)
((make-intset-folder #t) f set))
((f set seed)
((make-intset-folder #t seed) f set seed))
((f set s0 s1)
@ -473,6 +475,8 @@
(define intset-fold-right
(case-lambda
((f set)
((make-intset-folder #f) f set))
((f set seed)
((make-intset-folder #f seed) f set seed))
((f set s0 s1)