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

fix build for a fresh checkout

Browse Source
This commit is contained in:
Matthew Flatt 2014-12-04 13:05:45 -07:00
parent d593f5420b
commit d05c00de3e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/pkgs-catalog.rkt
View File

@ -71,10 +71,11 @@
[(directory-exists? src-f) [(directory-exists? src-f)
(loop src-f)]))))) (loop src-f)])))))
(for ([l (directory-list (build-path catalog-path "pkg"))]) (when (directory-exists? (build-path catalog-path "pkg"))
(unless (hash-ref found (path->string l) #f) (for ([l (directory-list (build-path catalog-path "pkg"))])
(printf " Uncataloging package ~a\n" (path->string l)) (unless (hash-ref found (path->string l) #f)
(delete-directory/files (build-path catalog-path "pkg" l)))) (printf " Uncataloging package ~a\n" (path->string l))
(delete-directory/files (build-path catalog-path "pkg" l)))))
(define metadata-ns (make-base-namespace)) (define metadata-ns (make-base-namespace))
(define (get-pkg-info pkg-dir) (define (get-pkg-info pkg-dir)