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

unbreak build (probably)

Browse Source
This commit is contained in:
Robby Findler 2013-06-25 19:01:19 -05:00
parent 1384d2d277
commit bb955cead7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/lib/collects/pkg/lib.rkt
View File

@ -1599,7 +1599,7 @@
(apply zip pkg/complete (directory-list))))] (apply zip pkg/complete (directory-list))))]
['plt ['plt
(define dest pkg/complete) (define dest pkg/complete)
(when (pkg-single-collection pkg-name dir) (when (pkg-single-collection #:name pkg-name dir)
(pkg-error (~a "single-collection package not supported in .plt format\n" (pkg-error (~a "single-collection package not supported in .plt format\n"
" directory: ~a") " directory: ~a")
dir)) dir))
@ -1981,7 +1981,7 @@
(define (directory->module-paths dir pkg-name metadata-ns) (define (directory->module-paths dir pkg-name metadata-ns)
(define dummy (build-path dir "dummy.rkt")) (define dummy (build-path dir "dummy.rkt"))
(define compiled (string->path-element "compiled")) (define compiled (string->path-element "compiled"))
(define single-collect (pkg-single-collection dir pkg-name #:namespace metadata-ns)) (define single-collect (pkg-single-collection dir #:name pkg-name #:namespace metadata-ns))
(define (try-path s f) (define (try-path s f)
(define mp (define mp
`(lib ,(apply ~a `(lib ,(apply ~a