From 9afa50b459554a652efebeeb59cbfba0727553cf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 11 Nov 2013 05:26:31 -0700 Subject: [PATCH] fix `runtime-require` duplicate path registration --- racket/collects/racket/runtime-path.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/racket/collects/racket/runtime-path.rkt b/racket/collects/racket/runtime-path.rkt index 98f5f9266c..59d3862984 100644 --- a/racket/collects/racket/runtime-path.rkt +++ b/racket/collects/racket/runtime-path.rkt @@ -231,10 +231,12 @@ (raise-syntax-error #f "not a module path" stx #'mod-path)) (if (hash-ref required-module-paths mp #f) #'(begin) - #'(begin-for-syntax - (register-ext-files - (#%variable-reference) - (list `(module mod-path ,(#%variable-reference)))))))])) + (begin + (hash-set! required-module-paths mp #t) + #'(begin-for-syntax + (register-ext-files + (#%variable-reference) + (list `(module mod-path ,(#%variable-reference))))))))])) (define-syntax (runtime-paths stx) (syntax-case stx ()