[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/emacsql 6018005f3c: Use mapcan instead of cl-mapcan
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/emacsql 6018005f3c: Use mapcan instead of cl-mapcan |
Date: |
Sat, 23 Nov 2024 18:59:37 -0500 (EST) |
branch: elpa/emacsql
commit 6018005f3c690bd6c179d05ee2470a39fd57d491
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Use mapcan instead of cl-mapcan
This was added in Emacs 26.1.
---
tests/emacsql-external-tests.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/tests/emacsql-external-tests.el b/tests/emacsql-external-tests.el
index 70460bf115..e6b5ecdb63 100644
--- a/tests/emacsql-external-tests.el
+++ b/tests/emacsql-external-tests.el
@@ -28,14 +28,14 @@
(message " ! skip `%s'; failed to load library" connector))
((let* ((unset ())
(args (if envvars
- (cl-mapcan (lambda (var)
- (let* ((envvar (car var))
- (keyword (cadr var))
- (value (and envvar (getenv envvar))))
- (cond ((not value) (push envvar unset) nil)
- (keyword (list keyword value))
- ((list value)))))
- envvars)
+ (mapcan (lambda (var)
+ (let* ((envvar (car var))
+ (keyword (cadr var))
+ (value (and envvar (getenv envvar))))
+ (cond ((not value) (push envvar unset) nil)
+ (keyword (list keyword value))
+ ((list value)))))
+ envvars)
(list nil))))
(if unset
(message " ! skip `%s'; required envvars not set" connector)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/emacsql 6018005f3c: Use mapcan instead of cl-mapcan,
ELPA Syncer <=