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

planet2: remove "METADATA.rktd" compatibility

Browse Source
This commit is contained in:
Matthew Flatt 2012-12-20 08:16:17 -07:00
parent 9692765e26
commit b644bb2901
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/planet2/lib.rkt
View File

@ -53,14 +53,6 @@
(struct pkg-desc (source type name auto?)) (struct pkg-desc (source type name auto?))
(define (file->value* pth def)
(with-handlers ([exn:fail? (λ (x)
;; No logging, because this funciton is used only
;; for METADATA.rktd, which is going away, and we
;; don't want to complain about a missing file.
def)])
(file->value pth)))
(define (path->bytes* pkg) (define (path->bytes* pkg)
(cond (cond
[(path? pkg) [(path? pkg)
@ -140,11 +132,7 @@
(define v (define v
(if get-info (if get-info
(get-info key get-default) (get-info key get-default)
;; during a transition period, also check for "METADATA.rktd": (get-default)))
(if (eq? key 'deps)
(dict-ref (file->value* (build-path pkg-dir "METADATA.rktd") empty)
'dependency (get-default))
(get-default))))
(checker v) (checker v)
v) v)