diff mbox series

[bug#59747] services: configuration: simplify alist? procedure.

Message ID eacf0013c8cee01cb68caacc1093beb5548f71d1.1674664664.git.mirai@makinata.eu
State New
Headers
Series [bug#59747] services: configuration: simplify alist? procedure. |

Commit Message

Bruno Victal Jan. 25, 2023, 4:37 p.m. UTC 
* gnu/services/configuration.scm (alist?): simplify procedure.
---
 gnu/services/configuration.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)


base-commit: 0d713e0140f4c4a80de6cbfc58fae17cb69beb98
diff mbox series

Patch

diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 6b0291dc00..d4d9c3b1a6 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -437,10 +437,7 @@  (define list-of-strings?
   (list-of string?))
 
 (define alist?
-  (match-lambda
-    (() #t)
-    ((head . tail) (and (pair? head) (alist? tail)))
-    (_ #f)))
+  (list-of pair?))
 
 (define serialize-file-like empty-serializer)