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

expander: small code improvement

Browse Source
This commit is contained in:
Matthew Flatt 2018-07-08 07:24:02 -06:00
parent 4d158a8cb8
commit 41402ac783
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/src/expander/namespace/attach.rkt
View File

@ -8,17 +8,17 @@
(provide namespace-attach-module
namespace-attach-module-declaration)
(define (namespace-attach-module src-namespace
(define/who (namespace-attach-module src-namespace
mod-path
[dest-namespace (current-namespace)])
(do-attach-module 'namespace-attach-module
(do-attach-module who
src-namespace mod-path dest-namespace
#:attach-instances? #t))
(define (namespace-attach-module-declaration src-namespace
(define/who (namespace-attach-module-declaration src-namespace
mod-path
[dest-namespace (current-namespace)])
(do-attach-module 'namespace-attach-module-declaration
(do-attach-module who
src-namespace mod-path dest-namespace
#:attach-instances? #f))
@ -40,7 +40,7 @@
(define todo (make-hasheq)) ; module name -> phase -> namespace-or-#f
(define missing (gensym 'missing))
(define missing '#:missing)
;; Loop to check and decide what to transfer
(let loop ([mpi (module-path-index-join
@ -53,7 +53,6 @@
[attach-phase phase])
(define mod-name (parameterize ([current-namespace src-namespace])
(module-path-index-resolve mpi)))
(define attach-this-instance? (and attach-instances? (eqv? phase attach-phase)))
(define m-ns (hash-ref (hash-ref todo mod-name #hasheqv()) phase missing))