diff --git a/guix/profiles.scm b/guix/profiles.scm index 5c19c95d4255c90d67c48fa51caf032fd4fc28f4..d19b49f6d2dc3059d67c445d79d872493e412a0e 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -702,7 +702,8 @@ (define inputs (define builder #~(begin (use-modules (guix build profiles) - (guix search-paths)) + (guix search-paths) + (srfi srfi-1)) (setvbuf (current-output-port) _IOLBF) (setvbuf (current-error-port) _IOLBF) @@ -711,9 +712,10 @@ (define search-paths ;; Search paths of MANIFEST's packages, converted back to their ;; record form. (map sexp->search-path-specification - '#$(map search-path-specification->sexp - (append-map manifest-entry-search-paths - (manifest-entries manifest))))) + (delete-duplicates + '#$(map search-path-specification->sexp + (append-map manifest-entry-search-paths + (manifest-entries manifest)))))) (build-profile #$output '#$inputs #:manifest '#$(manifest->gexp manifest)