[Guile-commits] 01/02: Add nullary intmap and intset folders

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit b077e807c082e858db74a99136b0223665f11bd1
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 29 19:57:11 2017 +0100

    Add nullary intmap and intset folders
    
    * module/language/cps/intmap.scm (intmap-fold, intmap-fold-right):
    * module/language/cps/intset.scm (intset-fold, intset-fold-right): Add
      nullary folders.
---
 module/language/cps/intmap.scm | 4 ++++
 module/language/cps/intset.scm | 6 +++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/module/language/cps/intmap.scm b/module/language/cps/intmap.scm
index 15b1b53..8995d62 100644
--- a/module/language/cps/intmap.scm
+++ b/module/language/cps/intmap.scm
@@ -513,6 +513,8 @@ already, and always calls the meet procedure."
 
 (define intmap-fold
   (case-lambda
+    ((f map)
+     ((make-intmap-folder #t) f map))
     ((f map seed)
      ((make-intmap-folder #t seed) f map seed))
     ((f map seed0 seed1)
@@ -522,6 +524,8 @@ already, and always calls the meet procedure."
 
 (define intmap-fold-right
   (case-lambda
+    ((f map)
+     ((make-intmap-folder #f) f map))
     ((f map seed)
      ((make-intmap-folder #f seed) f map seed))
     ((f map seed0 seed1)
diff --git a/module/language/cps/intset.scm b/module/language/cps/intset.scm
index 09af0ea..7b2a66a 100644
--- a/module/language/cps/intset.scm
+++ b/module/language/cps/intset.scm
@@ -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)