me/guix
Archived
1
0
Fork 0
Code Activity

services: configuration: Rewrite 'alist?' procedure.

Browse source 
* gnu/services/configuration.scm (alist?): Rewrite.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2022-12-01 18:09:47 +00:00 • committed by Ludovic Courtès
parent cc6b88d00d
commit 9336baf258
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/services/configuration.scm
View file

@ -436,7 +436,11 @@ the list result in @code{#t} when applying PRED? on them."
(define list-of-strings? (define list-of-strings?
(list-of string?)) (list-of string?))
(define alist? list?) (define alist?
(match-lambda
(() #t)
((head . tail) (and (pair? head) (alist? tail)))
(_ #f)))
(define serialize-file-like empty-serializer) (define serialize-file-like empty-serializer)