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

raco setup: fix handling of 'lib paths in "info-cache.rktd"

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-03 19:43:58 -06:00
parent 7e42b8dea2
commit f54e3b1c15
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/lib/collects/setup/setup-unit.rkt
View File

@ -951,7 +951,7 @@
(set! all-ok? #t) (set! all-ok? #t)
(for ([i l]) (for ([i l])
(match i (match i
[(list (and a (or (? bytes?) (list 'info (? bytes?) ...))) [(list (and a (or (? bytes?) (list (or 'info 'lib) (? bytes?) ...)))
(list (? symbol? b) ...) c (? integer? d) (? integer? e)) (list (? symbol? b) ...) c (? integer? d) (? integer? e))
(define p (if (bytes? a) (bytes->path a) a)) (define p (if (bytes? a) (bytes->path a) a))
;; Check that the path is suitably absolute or relative: ;; Check that the path is suitably absolute or relative:
@ -959,8 +959,9 @@
(case info-path-mode (case info-path-mode
[(relative abs-in-relative) [(relative abs-in-relative)
(or (and (list? p) (or (and (list? p)
(main-lib-relative->path (if (eq? (car p) 'info)
(info-relative->path p))) (info-relative->path p)
(main-lib-relative->path p)))
(and (complete-path? p) (and (complete-path? p)
;; `c' must be `(lib ...)' ;; `c' must be `(lib ...)'
(list? c) (list? c)