me
/
guix
Archived
1
0
Fork 0
Code

services: configuration: Rewrite 'alist?' procedure. 

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

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
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?
(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)