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))
+