From b12c86ccd5b15e1c8c161db911375b6e4c419c0f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 21 Feb 2023 03:21:43 +0100
Subject: Change kvlist->assq to return pairs.

---
 module/hnh/util.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/hnh/util.scm')

diff --git a/module/hnh/util.scm b/module/hnh/util.scm
index 929f23a0..ffac17bd 100644
--- a/module/hnh/util.scm
+++ b/module/hnh/util.scm
@@ -313,7 +313,8 @@
 
 (define (kvlist->assq kvlist)
   (map (lambda (pair)
-         (cons (keyword->symbol (car pair)) (cdr pair)))
+         (cons (keyword->symbol (car pair))
+               (cadr pair)))
        (group kvlist 2)))
 
 (define* (assq-limit alist optional: (number 1))
-- 
cgit v1.2.3