suzanne.soy/racket
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
This commit is contained in:
Matthew Flatt 2014-06-09 09:04:14 +01:00
parent ad15191493
commit 2f46525a7d
11 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/algol60/tool.rkt
View File

@ -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 ()

4
pkgs/deinprogramm/deinprogramm/deinprogramm-langs.rkt
View File

@ -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 ()

2
pkgs/drracket-pkgs/drracket-test/tests/drracket/private/repl-test.rkt
View File

@ -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)

2
pkgs/drracket-pkgs/drracket/drracket/private/eval.rkt
View File

@ -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))))

2
pkgs/drracket-pkgs/drracket/drracket/private/language-configuration.rkt
View File

@ -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))))

2
pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt
View File

@ -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)

2
pkgs/drracket-pkgs/drracket/drracket/private/syncheck/traversals.rkt
View File

@ -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]

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

@ -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)])

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

@ -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)

6
pkgs/htdp-pkgs/htdp-lib/lang/htdp-langs.rkt
View File

@ -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 ()

2
pkgs/web-server-pkgs/web-server-lib/web-server/configuration/namespace.rkt
View File

@ -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