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

Avoid error on relative paths in raco pkg install --clone.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-11-29 10:23:16 -05:00
parent 0dc3bcc0e5
commit 49c1cb1718
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/pkg/private/install.rkt
View File

@ -590,7 +590,8 @@
(define alt-dir-name (define alt-dir-name
;; If we had to pick an alternate dir name, then record it: ;; If we had to pick an alternate dir name, then record it:
(let-values ([(base name dir?) (split-path final-pkg-dir)]) (let-values ([(base name dir?) (split-path final-pkg-dir)])
(and (regexp-match? #rx"[+]" name) (and (path? name)
(regexp-match? #rx"[+]" name)
(path->string name)))) (path->string name))))
(define this-pkg-info (define this-pkg-info
(make-pkg-info orig-pkg checksum auto? single-collect alt-dir-name)) (make-pkg-info orig-pkg checksum auto? single-collect alt-dir-name))