From 91b01265606283829da62e3c6c5aadcf7c80cfc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 1 Jun 2020 13:06:41 +0200
Subject: Add assq-limit.

---
 module/util.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 6d8aeaf7..b168ffc4 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -384,6 +384,11 @@
             (assq-set! alist k (append v (or o '())))))
         (copy-tree a) b))
 
+(define*-public (assq-limit alist optional: (number 1))
+  (map (lambda (pair)
+         (take-to pair (1+ number)))
+       alist))
+
 (define-public (group-by proc lst)
   (let ((h (make-hash-table)))
     (for value in lst
-- 
cgit v1.2.3