raco: recognize racobc when trying to distinguish from setup-plt

This commit is contained in:
Matthew Flatt 2020-08-02 14:58:51 -06:00
parent 9b5dd35adc
commit b32b3178bc

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(?i:|3m|cgc|cs)$" (path->string name)) (if (if (regexp-match? #rx"^raco(?i:|3m|cgc|cs|bc)$" (path->string name))
#t #t
(regexp-match? #rx"^racket(?i:|3m|cgc|cs)$" (path->string name))) (regexp-match? #rx"^racket(?i:|3m|cgc|cs|bc)$" (path->string name)))
(values "raco setup" (values "raco setup"
(string-append (regexp-replace* (string-append (regexp-replace*
#rx"racket$" #rx"racket$"