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

setup: adjust command-name hack for case-insensitive Windows

Browse Source
This commit is contained in:
Matthew Flatt 2018-11-12 14:58:30 -08:00
parent 0b7072eed3
commit 60a6dc1796
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/setup/private/command-name.rkt
View File

@ -20,9 +20,9 @@
;; then claim to be the "setup" command: ;; then claim to be the "setup" command:
;; if the program name is "racket", assume that there's a "racket -l setup" ;; 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 ;; 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 #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" (values "raco setup"
(string-append (regexp-replace* (string-append (regexp-replace*
#rx"racket$" #rx"racket$"