From 5377d00c90480e73e0863203d35d7a1dc373195d Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Mon, 10 Feb 2020 14:56:54 -0500 Subject: [PATCH] pkg/lib: change pkg-stage contract to return set Before: contract expected list but the function returns a set After: contract expects a set fix #3029 --- pkgs/racket-doc/pkg/scribblings/lib.scrbl | 3 ++- racket/collects/pkg/lib.rkt | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-doc/pkg/scribblings/lib.scrbl b/pkgs/racket-doc/pkg/scribblings/lib.scrbl index 3105d19341..fbf54f2466 100644 --- a/pkgs/racket-doc/pkg/scribblings/lib.scrbl +++ b/pkgs/racket-doc/pkg/scribblings/lib.scrbl @@ -3,6 +3,7 @@ (for-label (except-in racket/base remove) racket/contract/base + (only-in racket/set set/c) pkg pkg/lib (only-in pkg/db current-pkg-catalog-file) @@ -189,7 +190,7 @@ is a directory within @racket[path]). [#:force-strip? force-strip? boolean? #f] [#:use-cache? use-cache? boolean? #f] [#:quiet? quiet? boolean? #t]) - (values string? path? (or/c #f string?) boolean? (listof module-path?))]{ + (values string? path? (or/c #f string?) boolean? (set/c module-path?))]{ Locates the implementation of the package specified by @racket[desc] and downloads and unpacks it to a temporary directory (as needed). diff --git a/racket/collects/pkg/lib.rkt b/racket/collects/pkg/lib.rkt index f221671335..8370522425 100644 --- a/racket/collects/pkg/lib.rkt +++ b/racket/collects/pkg/lib.rkt @@ -1,5 +1,6 @@ #lang racket/base (require racket/contract/base + (only-in racket/set set/c) net/url "path.rkt" "private/desc.rkt" @@ -232,7 +233,7 @@ path? (or/c #f string?) boolean? - (listof module-path?)))] + (set/c module-path? #:cmp 'equal #:kind 'immutable)))] [pkg-config-catalogs (-> (listof string?))] [pkg-catalog-update-local