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

allow looking at a pkg lockfile in the sandbox

Browse Source 
(this comes up when building <pkgs>/ paths, something the
contract system does)
This commit is contained in:
Robby Findler 2014-01-01 10:31:33 -06:00
parent a205963d95
commit 533a2f21f8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/sandbox-lib/racket/sandbox.rkt
View File

@ -4,6 +4,7 @@
racket/path racket/path
racket/list racket/list
racket/string racket/string
racket/file
syntax/moddep syntax/moddep
racket/gui/dynamic racket/gui/dynamic
planet/config planet/config
@ -1002,8 +1003,9 @@
,@(for/list ([l (current-library-collection-links)] ,@(for/list ([l (current-library-collection-links)]
#:when (path? l)) #:when (path? l))
`(read ,l)) `(read ,l))
,@(for/list ([l (get-pkgs-search-dirs)]) ,@(for*/list ([l (get-pkgs-search-dirs)]
`(read ,(build-path l "pkgs.rktd"))) [f (in-list (list "pkgs.rktd" (make-lock-file-name "pkgs.rktd")))])
`(read ,(build-path l f)))
(read ,(build-path (find-user-pkgs-dir) "pkgs.rktd")) (read ,(build-path (find-user-pkgs-dir) "pkgs.rktd"))
(read-bytecode ,(PLANET-BASE-DIR)) (read-bytecode ,(PLANET-BASE-DIR))
(exists ,(find-system-path 'addon-dir)) (exists ,(find-system-path 'addon-dir))