From cc4b956f843142400d3a1f39c7244286ac4e454e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 15 May 2021 08:47:15 -0600 Subject: [PATCH] cs: fix relative-path `-S` argument to `racket` --- racket/src/cs/main.sps | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/src/cs/main.sps b/racket/src/cs/main.sps index 7af4adbe3b..c8ca5cda8e 100644 --- a/racket/src/cs/main.sps +++ b/racket/src/cs/main.sps @@ -474,7 +474,8 @@ [("-S" "--search") (let-values ([(collects-path rest-args) (next-arg "path" arg within-arg args)]) (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))] [("-G" "--config") (let-values ([(config-path rest-args) (next-arg "config path" arg within-arg args)])