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

io: require absolute path for current-load-relative-directory

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-16 21:29:01 -07:00
parent a044c2ad05
commit 22b721be8a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/src/io/path/api.rkt
View File

@ -9,6 +9,7 @@
;; get `chaperone-procedure` that doesn't support keyword arguments: ;; get `chaperone-procedure` that doesn't support keyword arguments:
chaperone-procedure) chaperone-procedure)
"path.rkt" "path.rkt"
"relativity.rkt"
"simplify.rkt" "simplify.rkt"
"directory-path.rkt") "directory-path.rkt")
@ -63,4 +64,12 @@
(define/who current-load-relative-directory (define/who current-load-relative-directory
(let ([guard (make-guard-paths who #f)]) (let ([guard (make-guard-paths who #f)])
(make-derived-parameter raw:current-load-relative-directory guard guard))) (define full-guard
(case-lambda
[() (guard)]
[(v) (when v
(unless (and (path-string? v)
(complete-path? v))
(raise-argument-error who "(or/c (and/c path-string? complete-path?) #f)" v)))
(guard v)]))
(make-derived-parameter raw:current-load-relative-directory full-guard full-guard)))