From f95abbbf858bbd12dc87623bc4d536e808ac7d7e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 22 Dec 2019 11:03:50 -0700 Subject: [PATCH] cs: remove "GRacket3m.exe" from Racket CS build When "GRacket3m.exe" is present, then "DrRacket3m.exe", etc., created created. --- racket/collects/setup/winstrip.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/racket/collects/setup/winstrip.rkt b/racket/collects/setup/winstrip.rkt index 26e16f6441..a11671b3f3 100644 --- a/racket/collects/setup/winstrip.rkt +++ b/racket/collects/setup/winstrip.rkt @@ -58,7 +58,12 @@ (let-values ([(base name dir?) (split-path f)]) name))]) (or (regexp-match? #rx#"[.](?i:pdb|ilk|manifest)$" b) - (regexp-match? #rx#"(?i:CGC[.](?:dll|exe))$" b) + (and (not keep-cgc?) + (regexp-match? #rx#"(?i:CGC[.](?:dll|exe))$" b)) + (and (not keep-3m?) + (regexp-match? #rx#"(?i:3m[.]exe)$" b)) + (and (not keep-cs?) + (regexp-match? #rx#"(?i:CS[.]exe)$" b)) (and (regexp-match? #rx#"(?i:[.](?:dll|exp|obj|lib|def))$" b) (regexp-match? #rx#"(?i:racket|mzgc)" b) (let ([dll-type