Lines Matching refs:path_0
4258 (lambda path_0
4287 path_0
4289 path_0)))
4315 (lambda (accums_0 path_0)
4317 (let ((key_0 (car path_0)))
4352 (if (null? (cdr path_0))
4357 (if (null? (cdr path_0))
4359 (loop_0 accum_0 (cdr path_0))))))))))))
6023 ((path_0 base_0) (1/module-path-index-join path_0 base_0))
6085 ((path_0 base_0) (1/module-path-index-join path_0 base_0))
14036 ((path_0 base_0)
14037 (if (not path_0)
23833 ((path_0
23841 path_0)
23854 path_0)
23857 path_0
23985 (let ((path_0 (unsafe-vector*-ref d_0 0)))
23994 (let ((path_1 path_0))
60032 (let ((path_0
60051 (if end3_0 end3_0 (file-size path_0)))))
60062 path_0
60228 (lambda (path_0 p_1)
60231 path_0
60237 (if path_0 (build-path path_0 elem_0) elem_0)))
60507 (lambda (path_0 old-stamp_0)
60545 (loop_0 path_0))
60547 (if (not (file-exists? path_0))
60551 (filesystem-change-evt path_0 (lambda () #f))
60557 (cons (file->bytes path_0) evt_0))))))))
60560 (lambda (path_0)
60583 (call-with-input-file*.1 'binary path_0 temp8_0))))
61032 (lambda (dir_0 path_0 check-compiled?_0)
61033 (let ((or-part_0 (file-exists? (build-path dir_0 path_0))))
61044 path_0
72054 (let ((path_0 (car p_0)))
72056 (let ((len_0 (length path_0)))
72075 path_0
72799 (let ((path_0 (1/current-module-path-for-load)))
72800 (if path_0
72802 (if (syntax?$1 path_0)
72812 (if (syntax-srcloc$1 path_0)
72813 (srcloc->string (syntax-srcloc$1 path_0))
72818 (syntax->datum$1 path_0)
72825 (let ((app_2 (list path_0)))
72831 (syntax->datum$1 path_0))))))
72842 path_0
72852 path_0))))
75828 (lambda (path_0 expected-mod_0)
75830 (if (path-string? path_0)
75832 (raise-argument-error 'default-load-handler "path-string?" path_0))
75860 (if (regexp-match? rx2937 path_0)
75866 path_0
75871 path_0
75932 (check-module-form s_0 path_0)))
76000 (path->complete-path path_0)))
76026 (call-with-input-file*.1 'binary path_0 temp2_0)))))))))
76205 (lambda (path_0 thunk_0)
76214 (path->complete-path path_0)))
76218 (lambda (path_0 proc_0)
76221 (lambda () (set! i_0 (open-input-file.1 #t 'binary path_0)))
76295 (lambda (path_0 expect-module_0)
76297 (if (path-string? path_0)
76302 path_0))
76325 path_0))
76360 (let ((orig-path_0 (resolve_0 path_0)))
76362 (lambda () (split-path path_0))
76749 (lambda (name_0 ns-hts_0 path_0 src-path_0 base_0)
76752 (hash-set! app_0 name_0 (list path_0 src-path_0 base_0)))
76759 (define default-reader-guard (lambda (path_0) path_0))