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

cs: fix relative-path -S argument to racket

Browse Source
This commit is contained in:
Matthew Flatt 2021-05-15 08:47:15 -06:00
parent 0f743800e4
commit cc4b956f84
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/cs/main.sps
View File

@ -474,7 +474,8 @@
[("-S" "--search") [("-S" "--search")
(let-values ([(collects-path rest-args) (next-arg "path" arg within-arg args)]) (let-values ([(collects-path rest-args) (next-arg "path" arg within-arg args)])
(check-path-arg collects-path "collects path" collects-path within-arg) (check-path-arg collects-path "collects path" collects-path within-arg)
(set! rev-collects-post-extra (cons (->path (find-original-bytes collects-path)) rev-collects-post-extra)) (let ([path (path->complete-path (->path (find-original-bytes collects-path)))])
(set! rev-collects-post-extra (cons path rev-collects-post-extra)))
(loop rest-args))] (loop rest-args))]
[("-G" "--config") [("-G" "--config")
(let-values ([(config-path rest-args) (next-arg "config path" arg within-arg args)]) (let-values ([(config-path rest-args) (next-arg "config path" arg within-arg args)])