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

fix runtime-require duplicate path registration

Browse Source
This commit is contained in:
Matthew Flatt 2013-11-11 05:26:31 -07:00
parent 61a78d00e9
commit 9afa50b459
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/racket/runtime-path.rkt
View File

@ -231,10 +231,12 @@
(raise-syntax-error #f "not a module path" stx #'mod-path)) (raise-syntax-error #f "not a module path" stx #'mod-path))
(if (hash-ref required-module-paths mp #f) (if (hash-ref required-module-paths mp #f)
#'(begin) #'(begin)
#'(begin-for-syntax (begin
(register-ext-files (hash-set! required-module-paths mp #t)
(#%variable-reference) #'(begin-for-syntax
(list `(module mod-path ,(#%variable-reference)))))))])) (register-ext-files
(#%variable-reference)
(list `(module mod-path ,(#%variable-reference))))))))]))
(define-syntax (runtime-paths stx) (define-syntax (runtime-paths stx)
(syntax-case stx () (syntax-case stx ()