collects/racket/lazy-require.rkt

12      #`(begin (lazy-require1 modpath (import ...) #,stx) ...)]))
14 (begin-for-syntax
22  ;; like (collapse-module-path modpath '(submod "..")), but avoids
24  (define (module-path-add-submod-up modpath)
27             ;; was a submod module-path
41             ;; wasn't a submod module-path
51         (begin
70                           ;; `define-runtime-module-path-index' works right at phase-level 0:
71                           #'(define-runtime-module-path-index mpi-var (quote modpath))
76                                         ;; ie, module-path interpretation is not hygienic!
77                                         [modpath* (module-path-add-submod-up #'modpath)])
79                             #'(begin
80                                 (module lazy-require-path-n racket/base
84                                   (define-runtime-module-path-index mpi-var (quote modpath*)))
87          #'(begin
114   (let ([path (resolved-module-path-name
115                (module-path-index-resolve
116                 (module-path-index-join
118                  (variable-reference->resolved-module-path vr))))])
120       (register-external-module path #:indirect? #t))))
127      #`(begin (lazy-require-syntax1/rename modpath (import ...) #,stx) ...)]))
140      (with-syntax ([modpath* (module-path-add-submod-up #'modpath)]
146          #'(begin
147              (module aux-mod1 racket/base
151              (module aux-mod2 racket/base
165 (begin-for-syntax
175      (with-syntax ([modpath* (module-path-add-submod-up #'modpath)]
182          #'(begin
183              (module aux-mod1 racket/base
187              (module aux-mod2 racket/base