Message ID | eacf0013c8cee01cb68caacc1093beb5548f71d1.1674664705.git.mirai@makinata.eu |
---|---|
State | New |
Headers | show |
Series | [bug#59747,v3] services: configuration: simplify alist? procedure. | expand |
bump
Hi, Bruno Victal <mirai@makinata.eu> writes: > * gnu/services/configuration.scm (alist?): simplify procedure. > --- > > Last patch was sent without prefix. > > gnu/services/configuration.scm | 5 +---- > 1 file changed, 1 insertion(+), 4 deletions(-) > > 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?)) Applied, thanks!
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)