diff --git a/pkgs/algol60/tool.rkt b/pkgs/algol60/tool.rkt index e661b017f5..90d987f53d 100644 --- a/pkgs/algol60/tool.rkt +++ b/pkgs/algol60/tool.rkt @@ -87,7 +87,7 @@ (define/public (marshall-settings x) x) (define/public (on-execute settings run-in-user-thread) (dynamic-require 'algol60/base #f) - (let ([path ((current-module-name-resolver) 'algol60/base #f #f)] + (let ([path ((current-module-name-resolver) 'algol60/base #f #f #t)] [n (current-namespace)]) (run-in-user-thread (lambda () diff --git a/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt b/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt index e0db4f9037..4eb8d0f2d7 100644 --- a/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt +++ b/pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt @@ -174,9 +174,9 @@ (define/override (on-execute settings run-in-user-thread) (let ([drs-namespace (current-namespace)] [scheme-test-module-name - ((current-module-name-resolver) '(lib "test-engine/scheme-tests.rkt") #f #f)] + ((current-module-name-resolver) '(lib "test-engine/scheme-tests.rkt") #f #f #t)] [scheme-signature-module-name - ((current-module-name-resolver) '(lib "deinprogramm/signature/signature-german.rkt") #f #f)] + ((current-module-name-resolver) '(lib "deinprogramm/signature/signature-german.rkt") #f #f #t)] [tests-on? (preferences:get 'test-engine:enable?)]) (run-in-user-thread (lambda () diff --git a/pkgs/drracket-pkgs/drracket-test/tests/drracket/private/repl-test.rkt b/pkgs/drracket-pkgs/drracket-test/tests/drracket/private/repl-test.rkt index a5b7f7f244..94c315fc64 100644 --- a/pkgs/drracket-pkgs/drracket-test/tests/drracket/private/repl-test.rkt +++ b/pkgs/drracket-pkgs/drracket-test/tests/drracket/private/repl-test.rkt @@ -802,7 +802,7 @@ This produces an ACK message (mktest (to-strings '(let ([on (current-namespace)] - [n ((current-module-name-resolver) 'mred #f #f)]) + [n ((current-module-name-resolver) 'mred #f #f #t)]) (current-namespace (make-namespace)) (namespace-attach-module on n)) '(require texpict/utils) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/eval.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/eval.rkt index 27e0107455..1f260acd63 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/eval.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/eval.rkt @@ -202,7 +202,7 @@ (λ (spec) (if (symbol? spec) spec - ((current-module-name-resolver) spec #f #f)))]) + ((current-module-name-resolver) spec #f #f #t)))]) (values (map get-name to-be-copied-module-specs) (map get-name to-be-copied-gui-module-specs)))) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/language-configuration.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/language-configuration.rkt index fcaf9d4508..78fd9424c5 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/language-configuration.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/language-configuration.rkt @@ -2035,7 +2035,7 @@ ;; since check syntax no longer shares the gui libraries, ;; we always share it explicitly here (define/override (on-execute setting run-in-user-thread) - (let ([mred-name ((current-module-name-resolver) 'mred/mred #f #f)]) + (let ([mred-name ((current-module-name-resolver) 'mred/mred #f #f #t)]) (run-in-user-thread (λ () (namespace-attach-module drracket:init:system-namespace mred-name)))) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt index c8fa6837c2..4c24118bc6 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt @@ -455,7 +455,7 @@ (define (*post) (current-module-declare-name #f) (current-module-declare-source #f) - (when path ((current-module-name-resolver) resolved-modpath #f)) + (when path ((current-module-name-resolver) resolved-modpath #f #t)) (thread-cell-set! repl-init-thunk *init)) (define (*error) (current-module-declare-name #f) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/traversals.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/traversals.rkt index f135985471..3d46cf1f6f 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/traversals.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/traversals.rkt @@ -953,7 +953,7 @@ [(module-path-index? datum) (module-path-index-resolve datum)] [else - ((current-module-name-resolver) datum #f #f)]))) + ((current-module-name-resolver) datum #f #f #t)]))) (define rkt-path/mod-path (and mpi (resolved-module-path-name mpi))) (define rkt-path/f (cond [(path? rkt-path/mod-path) rkt-path/mod-path] diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt index 20740c3b85..df54472f38 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt @@ -69,7 +69,7 @@ (cond [(path? p) p] [else - (let* ([mod-name ((current-module-name-resolver) p #f #f)] + (let* ([mod-name ((current-module-name-resolver) p #f #f #t)] [str (symbol->string mod-name)] [pth (substring str 1 (string-length str))]) (let-values ([(base name _) (split-path pth)]) diff --git a/pkgs/gui-pkgs/gui-test/framework/tests/load.rkt b/pkgs/gui-pkgs/gui-test/framework/tests/load.rkt index e8c6a819d8..3f4987746f 100644 --- a/pkgs/gui-pkgs/gui-test/framework/tests/load.rkt +++ b/pkgs/gui-pkgs/gui-test/framework/tests/load.rkt @@ -9,7 +9,7 @@ (test (string->symbol file) void? - `(let ([mred-name ((current-module-name-resolver) 'mred #f #f)] + `(let ([mred-name ((current-module-name-resolver) 'mred #f #f #t)] [orig-namespace (current-namespace)]) (parameterize ([current-namespace (make-base-namespace)]) (namespace-attach-module orig-namespace mred-name) diff --git a/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt b/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt index 8a0a1e4bbb..8c99071fef 100644 --- a/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt @@ -130,12 +130,12 @@ (define/override (on-execute settings run-in-user-thread) (let ([drs-namespace (current-namespace)] [set-result-module-name - ((current-module-name-resolver) '(lib "lang/private/set-result.ss") #f #f)] + ((current-module-name-resolver) '(lib "lang/private/set-result.ss") #f #f #t)] [scheme-test-module-name - ((current-module-name-resolver) '(lib "test-engine/racket-tests.ss") #f #f)] + ((current-module-name-resolver) '(lib "test-engine/racket-tests.ss") #f #f #t)] [scheme-signature-module-name ((current-module-name-resolver) - '(lib "deinprogramm/signature/signature-english.rkt") #f #f)] + '(lib "deinprogramm/signature/signature-english.rkt") #f #f #t)] [tests-on? (preferences:get 'test-engine:enable?)]) (run-in-user-thread (lambda () diff --git a/pkgs/web-server-pkgs/web-server-lib/web-server/configuration/namespace.rkt b/pkgs/web-server-pkgs/web-server-lib/web-server/configuration/namespace.rkt index 53959f9ccc..96397d364d 100644 --- a/pkgs/web-server-pkgs/web-server-lib/web-server/configuration/namespace.rkt +++ b/pkgs/web-server-pkgs/web-server-lib/web-server/configuration/namespace.rkt @@ -17,7 +17,7 @@ (if (symbol? spec) spec (with-handlers ([exn:fail? (lambda _ #f)]) - ((current-module-name-resolver) spec #f #f)))) + ((current-module-name-resolver) spec #f #f #t)))) (define to-be-copied-module-names (map get-name (append default-to-be-copied-module-specs