suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

`raco pkg' repair

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-02 10:41:46 -06:00
parent fa40be83d6
commit d63b49ccbb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/pkg/name.rkt
View File

@ -8,7 +8,9 @@
[package-source->name+type (->* (string? (or/c #f symbol?)) [package-source->name+type (->* (string? (or/c #f symbol?))
(#:link-dirs? boolean?) (#:link-dirs? boolean?)
(values (or/c #f string?) (or/c #f symbol?)))] (values (or/c #f string?) (or/c #f symbol?)))]
[package-source->name (-> string? (or/c #f string?))])) [package-source->name (->* (string?)
((or/c #f symbol?))
(or/c #f string?))]))
(define rx:package-name #rx"^[-_a-zA-Z0-9]+$") (define rx:package-name #rx"^[-_a-zA-Z0-9]+$")
(define rx:archive #rx"[.](plt|zip|tar|tgz|tar[.]gz)$") (define rx:archive #rx"[.](plt|zip|tar|tgz|tar[.]gz)$")
@ -106,6 +108,6 @@
[else [else
(values #f #f)])) (values #f #f)]))
(define (package-source->name s) (define (package-source->name s [given-type #f])
(define-values (name type) (package-source->name+type s #f)) (define-values (name type) (package-source->name+type s given-type))
name) name)