From a9a0bf90b8d6e412d260262dd65853786980fcdb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Jun 2006 00:17:30 +0000 Subject: [PATCH] always use original library paths for loading pict library svn: r3554 --- collects/slideshow/tool.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/slideshow/tool.ss b/collects/slideshow/tool.ss index 22edaf6897..ae8f8d888a 100644 --- a/collects/slideshow/tool.ss +++ b/collects/slideshow/tool.ss @@ -40,6 +40,7 @@ pict snip : build-lib-pict-stx) (define orig-inspector (current-code-inspector)) + (define orig-lcp (current-library-collection-paths)) (define-syntax syntax/cert (syntax-rules () @@ -656,7 +657,8 @@ pict snip : (define system-eventspace (current-eventspace)) (define (ss-dynamic-require lib id) - (parameterize ([current-code-inspector orig-inspector]) + (parameterize ([current-code-inspector orig-inspector] + [current-library-collection-paths orig-lcp]) (dynamic-require lib id))) ;; send-over : any syntax -> void