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

fix many more 3-argument calls to the module name resolver

Browse Source 
original commit: 2f46525a7d9a13f4830b756c0935d60809ff11d8
This commit is contained in:
Matthew Flatt 2014-06-09 09:04:14 +01:00
parent f1121af8d2
commit 583b8b040a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt
View File

@ -69,7 +69,7 @@
(cond (cond
[(path? p) p] [(path? p) p]
[else [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)] [str (symbol->string mod-name)]
[pth (substring str 1 (string-length str))]) [pth (substring str 1 (string-length str))])
(let-values ([(base name _) (split-path pth)]) (let-values ([(base name _) (split-path pth)])

2
pkgs/gui-pkgs/gui-test/framework/tests/load.rkt
View File

@ -9,7 +9,7 @@
(test (test
(string->symbol file) (string->symbol file)
void? 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)]) [orig-namespace (current-namespace)])
(parameterize ([current-namespace (make-base-namespace)]) (parameterize ([current-namespace (make-base-namespace)])
(namespace-attach-module orig-namespace mred-name) (namespace-attach-module orig-namespace mred-name)