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

always use original library paths for loading pict library

Browse Source 
svn: r3554
This commit is contained in:
Matthew Flatt 2006-06-30 00:17:30 +00:00
parent dd3a4d56ef
commit a9a0bf90b8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/slideshow/tool.ss
View File

@ -40,6 +40,7 @@ pict snip :
build-lib-pict-stx) build-lib-pict-stx)
(define orig-inspector (current-code-inspector)) (define orig-inspector (current-code-inspector))
(define orig-lcp (current-library-collection-paths))
(define-syntax syntax/cert (define-syntax syntax/cert
(syntax-rules () (syntax-rules ()
@ -656,7 +657,8 @@ pict snip :
(define system-eventspace (current-eventspace)) (define system-eventspace (current-eventspace))
(define (ss-dynamic-require lib id) (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))) (dynamic-require lib id)))
;; send-over : any syntax -> void ;; send-over : any syntax -> void