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

io: avoid some unneeded work when sending paths to rktio

Browse Source
This commit is contained in:
Matthew Flatt 2019-03-29 19:18:04 -06:00
parent fdf13f9dfc
commit e7456d3e9e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/io/file/host.rkt
View File

@ -18,7 +18,7 @@
(let ([p (->path p)])
(when who
(security-guard-check-file who p guards))
(path-bytes (cleanse-path (path->complete-path p (current-directory))))))
(path-bytes (cleanse-path (path->complete-path p current-directory #:wrt-given? #f)))))
(define (->host/as-is p who src)
(let ([p (->path p)])