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

fix build on version change

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-01 10:53:04 -06:00
parent b12cdecb9f
commit 9b4940d6a6
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2073,7 +2073,7 @@
;; if an "info.rkt" in an
(define sub-check-zo?
(or check-zo?
(let ([i (get-info/full f #:namespace metadata-ns)])
(let ([i (get-pkg-info f metadata-ns)])
(and i
(i 'assume-virtual-sources (lambda () #f))))))
(for/fold ([s s]) ([f (directory-list f #:build? #t)])

12
racket/src/link-all.rkt
View File

@ -90,6 +90,16 @@
[(directory-exists? src-f)
(loop src-f)])))))
(define metadata-ns (make-base-namespace))
(define (get-pkg-info pkg-dir)
(parameterize ([current-namespace metadata-ns])
;; with compiled files on:
(dynamic-require 'setup/infotab/lang/reader #f)
(dynamic-require 'setup/infotab 0))
;; without compiled files:
(parameterize ([use-compiled-file-paths '()])
(get-info/full pkg-dir #:namespace metadata-ns)))
(define all-pkgs
(let loop ([all-pkgs pkgs] [pkgs pkgs])
(define new-pkgs
@ -97,7 +107,7 @@
(define dir (hash-ref found pkg-name #f))
(unless dir
(error 'link-all "requested package not available: ~s" pkg-name))
(define i (get-info/full dir))
(define i (get-pkg-info dir))
(define deps
(extract-pkg-dependencies i #:filter? #t))
(set-union