From 533a2f21f864a25e27e744ef2fef04343e1d02e4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 1 Jan 2014 10:31:33 -0600 Subject: [PATCH] allow looking at a pkg lockfile in the sandbox (this comes up when building / paths, something the contract system does) --- pkgs/sandbox-lib/racket/sandbox.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/pkgs/sandbox-lib/racket/sandbox.rkt b/pkgs/sandbox-lib/racket/sandbox.rkt index 829d2057a1..c2bb2eb0c8 100644 --- a/pkgs/sandbox-lib/racket/sandbox.rkt +++ b/pkgs/sandbox-lib/racket/sandbox.rkt @@ -4,6 +4,7 @@ racket/path racket/list racket/string + racket/file syntax/moddep racket/gui/dynamic planet/config @@ -1002,8 +1003,9 @@ ,@(for/list ([l (current-library-collection-links)] #:when (path? l)) `(read ,l)) - ,@(for/list ([l (get-pkgs-search-dirs)]) - `(read ,(build-path l "pkgs.rktd"))) + ,@(for*/list ([l (get-pkgs-search-dirs)] + [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-bytecode ,(PLANET-BASE-DIR)) (exists ,(find-system-path 'addon-dir))