From 11dddd8a3e559eff21b12db46d993b07b624ab15 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 10 Mar 2015 18:07:48 +0100 Subject: system: Don't compare objects with 'equal?'. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes . Reported by 宋文武 and Tomáš Čech. * gnu/system.scm (operating-system-etc-directory): Remove call to 'delete-duplicates'. * gnu/system/linux.scm (pam-services->directory)[builder]: Add call to 'delete-duplicates'. --- gnu/system.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'gnu/system.scm') diff --git a/gnu/system.scm b/gnu/system.scm index a51b176640..1a0aee41eb 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -511,9 +511,8 @@ (define (operating-system-etc-directory os) ((services (operating-system-services os)) (pam-services -> ;; Services known to PAM. - (delete-duplicates - (append (operating-system-pam-services os) - (append-map service-pam-services services)))) + (append (operating-system-pam-services os) + (append-map service-pam-services services))) (profile-drv (operating-system-profile os)) (skeletons (operating-system-skeletons os)) (/etc/hosts (or (operating-system-hosts-file os) -- cgit v1.2.3