diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-06 16:16:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-06 17:58:37 +0200 |
| commit | 740277522010a739b5927407a207a4cae4f49730 (patch) | |
| tree | 4b8721c2169af0b2c3a41eb3f0f8265b35f3cbce /module/util.scm | |
| parent | Add missing leading zeroes in minical. (diff) | |
| download | calp-740277522010a739b5927407a207a4cae4f49730.tar.gz calp-740277522010a739b5927407a207a4cae4f49730.tar.xz | |
Add marker on today in small calendar.
Diffstat (limited to 'module/util.scm')
| -rw-r--r-- | module/util.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm index 62dc870a..dd5f3057 100644 --- a/module/util.scm +++ b/module/util.scm @@ -325,3 +325,11 @@ (module-use! (module-public-interface (current-module)) (resolve-interface '(mod ...))) ...)))) + +(define-public (assq-merge a b) + (fold (lambda (entry alist) + (let* (((k . v) entry) + (o (assq-ref alist k))) + (assq-set! alist k (append v (or o '()))))) + (copy-tree a) b)) + |