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

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

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