diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-10-30 21:39:18 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-10-31 00:51:06 +0200 |
| commit | 341fba217f5a9490c0e3a077e017adf7bc68acf5 (patch) | |
| tree | b1d7d69bdf5af9dc270e2ab7fd6f357ad6556f83 /guix/scripts/home | |
| parent | ea19381bd9405bdb711c36b534e463fc7c8ca949 (diff) | |
| download | guix-patches-341fba217f5a9490c0e3a077e017adf7bc68acf5.tar guix-patches-341fba217f5a9490c0e3a077e017adf7bc68acf5.tar.gz | |
home: import: Compare procedures with 'eq?'.
'procedure-name' is a debugging aid and cannot be reliably used to
check for procedure equality.
* guix/scripts/home/import.scm (configurations+modules): Remove use of
'procedure-name'.
Diffstat (limited to 'guix/scripts/home')
| -rw-r--r-- | guix/scripts/home/import.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guix/scripts/home/import.scm b/guix/scripts/home/import.scm index a0022458f6..d00739da22 100644 --- a/guix/scripts/home/import.scm +++ b/guix/scripts/home/import.scm @@ -98,9 +98,8 @@ service declaration." destination-directory "/" file)) proc))))) %files+configurations-alist) - (lambda (x y) - (equal? (procedure-name x) (procedure-name y))))) - + eq?)) + (map (lambda (proc) (proc destination-directory)) configurations)) ;; Based on `manifest->code' from (guix profiles) |