diff options
Diffstat (limited to '')
-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)) + |