always use original library paths for loading pict library
svn: r3554
This commit is contained in:
parent
dd3a4d56ef
commit
a9a0bf90b8
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user