diff options
| -rw-r--r-- | ccwl/utils.scm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/ccwl/utils.scm b/ccwl/utils.scm index 4f041a7..c20aae1 100644 --- a/ccwl/utils.scm +++ b/ccwl/utils.scm @@ -27,7 +27,25 @@ #:use-module (srfi srfi-26) #:use-module (srfi srfi-71) #:use-module (ice-9 match) - #:export (lambda**)) + #:export (pairify + plist->alist + lambda**)) + +(define (pairify lst) + "Return a list of pairs of successive elements of LST." + (match lst + (() '()) + ((first second tail ...) + (cons (cons first second) + (pairify tail))))) + +(define (plist->alist plist) + "Convert the property list PLIST to an association list. A property +list is a list of the form (#:key1 value1 #:key2 value2 ...)." + (map (match-lambda + ((key . value) + (cons (keyword->symbol key) value))) + (pairify plist))) (define* (group-keyword-arguments args #:optional (unary-keywords (list))) "Group ARGS, a list of keyword arguments of arbitrary arity. Return |