Lines Matching +refs:load +refs:use +refs:compiled
24 (parameterize ([current-load/use-compiled
25 (rerequire-load/use-compiled (current-load/use-compiled)
33 (define (rerequire-load/use-compiled orig re? verbosity path-collector)
44 ;; Module load:
53 path (let ([l (use-compiled-file-paths)])
54 (if (pair? l) (car l) "compiled"))
58 (lambda (ext loader?) (load-extension ext) #f)
60 [dir (or (current-load-relative-directory) (current-directory))]
67 (map cdr (module-compiled-imports code))))
74 ;; Register all submodules, too; even though we load at the
78 (for ([submod-code (in-list (append (module-compiled-submodules code #t)
79 (module-compiled-submodules code #f)))])
80 (define name (module-compiled-name submod-code))
87 ;; Not a module, or a submodule that we shouldn't load from source:
129 ;; If the code was compiled from source, then the
158 (define orig (current-load/use-compiled))
159 (parameterize ([current-load/use-compiled
160 (rerequire-load/use-compiled orig #f verbosity path-collector)]
163 ((rerequire-load/use-compiled orig #t verbosity path-collector)