From 85bd08190713d596d9fc800cddf4a6885aa1210f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 4 Dec 2013 09:49:34 -0600 Subject: [PATCH] fix cons/c use in contract related to PR 14222 This doesn't completely fix that PR because the implementation says that bytes are allowed and the docs don't allow that. My guess is that the implementation is wrong, not the docs, btu I'm not sure and this may be a backwards compatibility kind of thing, too. Also, path->collects-relative should probably be considered (it doesn't allow bytes? as an argument). --- pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl | 2 +- racket/collects/setup/collects.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl b/pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl index 445077f4e2..1ab4e19052 100644 --- a/pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl +++ b/pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl @@ -1328,7 +1328,7 @@ The @racket[cache] argument is used with @racket[path->pkg], if needed.} @defproc[(collects-relative->path [rel (or/c path-string? - (cons/c 'collects bytes? bytes? (listof bytes?)))]) + (list/c 'collects bytes? bytes? (listof bytes?)))]) path-string?]{ The inverse of @racket[path->collects-relative]: if @racket[rel] diff --git a/racket/collects/setup/collects.rkt b/racket/collects/setup/collects.rkt index 237175dea2..c706a7074d 100644 --- a/racket/collects/setup/collects.rkt +++ b/racket/collects/setup/collects.rkt @@ -87,5 +87,5 @@ 'collects-relative->path (format "~s" '(or/c bytes? path-string? - (cons/c 'collects bytes? bytes? (listof bytes?)))) + (list/c 'collects bytes? bytes? (listof bytes?)))) p)]))