From b32b3178bcabc5176da9e87b8919bfd5563f2aea Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 Aug 2020 14:58:51 -0600 Subject: [PATCH] raco: recognize `racobc` when trying to distinguish from `setup-plt` --- 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 1b303e993c..74aaa8a49f 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(?i:|3m|cgc|cs)$" (path->string name)) + (if (if (regexp-match? #rx"^raco(?i:|3m|cgc|cs|bc)$" (path->string name)) #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" (string-append (regexp-replace* #rx"racket$"