From 48704e5b5c9a18a3f381ec5a266d0375219ae122 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 26 Jul 2014 21:43:43 +0200 Subject: profiles: Do away with 'manifest=?'. * guix/profiles.scm (manifest=?): Remove. * guix/scripts/package.scm (readlink*): New procedure. (guix-package)[process-actions]: Use 'readlink*' and compare the profile to be built, PROF, with PROFILE to determine whether there's nothing to be done. --- guix/profiles.scm | 8 -------- 1 file changed, 8 deletions(-) (limited to 'guix/profiles.scm') diff --git a/guix/profiles.scm b/guix/profiles.scm index 8dd04b81c0..91fc2fa435 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -48,7 +48,6 @@ manifest-remove manifest-installed? manifest-matching-entries - manifest=? profile-manifest profile-derivation @@ -196,13 +195,6 @@ must be a manifest-pattern." (filter matches? (manifest-entries manifest))) -(define (manifest=? m1 m2) - "Return #t if manifests M1 and M2 are equal. This differs from 'equal?' in -that the 'inputs' field is ignored for the comparison, since it is know to -have no effect on the manifest contents." - (equal? (manifest->sexp m1) - (manifest->sexp m2))) - ;;; ;;; Profiles. -- cgit v1.2.3