diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-13 02:22:48 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-13 02:22:48 +0200 |
| commit | 352536064fe13b50834e32cc047f443e2a6bbf6b (patch) | |
| tree | 79454f995bf8788a55170377f744e432962dda45 /module/util.scm | |
| parent | RRULES with FREQ=MONTHLY and BYDAY now works in the extension case. (diff) | |
| download | calp-352536064fe13b50834e32cc047f443e2a6bbf6b.tar.gz calp-352536064fe13b50834e32cc047f443e2a6bbf6b.tar.xz | |
Change values-map to valued-map.
Diffstat (limited to 'module/util.scm')
| -rw-r--r-- | module/util.scm | 8 |
1 files changed, 6 insertions, 2 deletions
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))) |