From 60a6dc1796166b8092ff8b08229ce5bc9de913b2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 12 Nov 2018 14:58:30 -0800 Subject: [PATCH] setup: adjust command-name hack for case-insensitive Windows --- racket/collects/setup/private/command-name.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/setup/private/command-name.rkt b/racket/collects/setup/private/command-name.rkt index 3af92595d7..1b303e993c 100644 --- a/racket/collects/setup/private/command-name.rkt +++ b/racket/collects/setup/private/command-name.rkt @@ -20,9 +20,9 @@ ;; then claim to be the "setup" command: ;; if the program name is "racket", assume that there's a "racket -l setup" ;; going on in there and also claim to be the "raco setup" command - (if (if (regexp-match? #rx"^raco(?:|3m|cgc|cs)$" (path->string name)) + (if (if (regexp-match? #rx"^raco(?i:|3m|cgc|cs)$" (path->string name)) #t - (regexp-match? #rx"^racket(?:|3m|cgc|cs)$" (path->string name))) + (regexp-match? #rx"^racket(?i:|3m|cgc|cs)$" (path->string name))) (values "raco setup" (string-append (regexp-replace* #rx"racket$"