From 72ca23f8385f1d425774e204dd7aa56b765c9a18 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 16 Apr 2021 18:01:25 +0530
Subject: Add plist-ref utility.

* ccwl/utils.scm: Import (srfi srfi-26).
(plist-ref): New function.
---
 ccwl/utils.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'ccwl')

diff --git a/ccwl/utils.scm b/ccwl/utils.scm
index 90d6f0c..8f6692c 100644
--- a/ccwl/utils.scm
+++ b/ccwl/utils.scm
@@ -1,5 +1,6 @@
 (define-module (ccwl utils)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-71)
   #:use-module (ice-9 match)
   #:export (group-arguments))
@@ -39,3 +40,10 @@ arity are listed in UNARY-KEYWORDS."
   (let ((positional-arguments keyword-arguments (break keyword? args)))
     (append positional-arguments
             (group-keyword-arguments keyword-arguments unary-keywords))))
+(define (plist-ref plist key)
+  "Return the value from the first entry in PLIST with the given KEY,
+or #f if there is no such entry."
+  (match (find-tail (cut eq? key <>) plist)
+    ((_ value . _) value)
+    (#f #f)))
+
-- 
cgit v1.2.3