From 352536064fe13b50834e32cc047f443e2a6bbf6b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 13 May 2020 02:22:48 +0200 Subject: Change values-map to valued-map. --- module/util.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'module') diff --git a/module/util.scm b/module/util.scm index fe922b22..0417d36f 100644 --- a/module/util.scm +++ b/module/util.scm @@ -462,9 +462,13 @@ o (loop (proc o))))) -(define-public (values-map proc . lists) +;; (a → values a), list ... → values a +(define-public (valued-map proc . lists) (apply values - (apply map proc lists))) + (apply append-map + (lambda args + (call-with-values (lambda () (apply proc args)) list)) + lists))) -- cgit v1.2.3