amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

home: import: Compare procedures with 'eq?'.

Browse source 
'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'.
This commit is contained in:
Ludovic Courtès 2021-10-30 21:39:18 +02:00
parent ea19381bd9
commit 341fba217f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guix/scripts/home/import.scm
View file

@ -98,8 +98,7 @@ service declaration."
destination-directory "/" file)) destination-directory "/" file))
proc))))) proc)))))
%files+configurations-alist) %files+configurations-alist)
(lambda (x y) eq?))
(equal? (procedure-name x) (procedure-name y)))))
(map (lambda (proc) (proc destination-directory)) configurations)) (map (lambda (proc) (proc destination-directory)) configurations))