always use original library paths for loading pict library

svn: r3554
This commit is contained in:
Matthew Flatt 2006-06-30 00:17:30 +00:00
parent dd3a4d56ef
commit a9a0bf90b8

View File

@ -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