From 3342c19210491f0ccbd61c491ff6607e5eb61077 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 10 Jun 2014 13:33:42 +0100 Subject: [PATCH] raco pkg catalog-archive: build on `raco pkg catalog-copy` ... instead of `pkg-catalog-update-local`. --- racket/collects/pkg/lib.rkt | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/racket/collects/pkg/lib.rkt b/racket/collects/pkg/lib.rkt index 1686a8db24..482cc6d584 100644 --- a/racket/collects/pkg/lib.rkt +++ b/racket/collects/pkg/lib.rkt @@ -3250,14 +3250,11 @@ state-catalog)) ;; Take a snapshot of the source catalog: (define temp-catalog-file (make-temporary-file "pkg~a.sqlite")) - (pkg-catalog-update-local #:catalogs (append (map url-or-path->url-string - (map src->url-or-path src-catalogs)) - (if from-config? - (pkg-config-catalogs) - null)) - #:set-catalogs? #t - #:catalog-file temp-catalog-file - #:quiet? quiet?) + (pkg-catalog-copy (map url-or-path->url-string + (map src->url-or-path src-catalogs)) + temp-catalog-file + #:force? #t ; replaces temporary file + #:from-config? from-config?) (define pkgs (parameterize ([db:current-pkg-catalog-file temp-catalog-file]) (db:get-pkgs)))