From 583b8b040ad1ff8e3e14fe3ed59bd052b5683112 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Jun 2014 09:04:14 +0100 Subject: [PATCH] fix many more 3-argument calls to the module name resolver original commit: 2f46525a7d9a13f4830b756c0935d60809ff11d8 --- pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt | 2 +- pkgs/gui-pkgs/gui-test/framework/tests/load.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt index 20740c3b..df54472f 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 e8c6a819..3f498774 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)