From b077e807c082e858db74a99136b0223665f11bd1 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 29 Nov 2017 19:57:11 +0100 Subject: [PATCH] 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 15b1b5372..8995d6211 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 09af0eaa3..7b2a66aaf 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)