Re: [PATCH 1/3] services: Add 'session-environment-service'.

[Alex Kost]

宋文武 (2015-12-02 16:38 +0300) wrote:

> +(define (environment-variables->environment-file vars)
> +  "Return a file for pam_env(8) that contains environment variables VARS."
> +  (apply mixed-text-file "environment"
> +         (fold-right (lambda (pair result)
> +                       (cons* (car pair) "=" (cdr pair) "\n" result))
> +                     '() vars)))

Hm, car and cdr.  Wouldn't it be clearer to do it like this:

  (map (match-lambda
         ((name . value)
          (string-append name "=" value "\n")))
       vars)

-- 
Alex