summaryrefslogtreecommitdiff
path: root/guix/scripts/home
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-10-30 21:39:18 +0200
committerLudovic Courtès <ludo@gnu.org>2021-10-31 00:51:06 +0200
commit341fba217f5a9490c0e3a077e017adf7bc68acf5 (patch)
treeb1d7d69bdf5af9dc270e2ab7fd6f357ad6556f83 /guix/scripts/home
parentea19381bd9405bdb711c36b534e463fc7c8ca949 (diff)
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.scm5
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)