|
From: | Alex Kost |
Subject: | Re: [PATCH 1/3] services: Add 'session-environment-service'. |
Date: | Wed, 02 Dec 2015 21:45:49 +0300 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) |
宋文武 (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
[Prev in Thread] | Current Thread | [Next in Thread] |