diff options
author | Arun Isaac | 2022-01-16 12:32:40 +0530 |
---|---|---|
committer | Arun Isaac | 2022-01-16 12:32:40 +0530 |
commit | 647f020ccd409e83320e8d11859035856770c91f (patch) | |
tree | d1e5ae5dbdfd807a6a69ca1cb9bbbe4c2fff2fd1 /ccwl | |
parent | fa583a919f270bb1ddf0c9102fa633b10d3dff10 (diff) | |
download | ccwl-647f020ccd409e83320e8d11859035856770c91f.tar.gz ccwl-647f020ccd409e83320e8d11859035856770c91f.tar.lz ccwl-647f020ccd409e83320e8d11859035856770c91f.zip |
ccwl: Delete plist->alist.
plist->alist is not used anywhere. pairify is quite sufficient to take
on its functionality.
* ccwl/utils.scm (plist->alist): Delete function.
* tests/utils.scm ("plist->alist"): Delete test.
Diffstat (limited to 'ccwl')
-rw-r--r-- | ccwl/utils.scm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/ccwl/utils.scm b/ccwl/utils.scm index 04938b1..508e884 100644 --- a/ccwl/utils.scm +++ b/ccwl/utils.scm @@ -58,18 +58,6 @@ (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 ...). For -example, - -(plist->alist (list #:spam 1 #:ham 2 #:eggs 3)) -=> ((spam . 1) (ham . 2) (eggs . 3))" - (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 a list of unary keyword arguments. n-ary arguments are grouped |