From 01af30a51700602bd17be3d4cb5b5a996e4e3213 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 26 Jul 2019 16:55:14 -0600 Subject: [PATCH] cs: repair recompile of Chez Scheme in Windows build --- racket/src/worksp/cs/recompile.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/racket/src/worksp/cs/recompile.rkt b/racket/src/worksp/cs/recompile.rkt index 2753f45761..90c082a8bd 100644 --- a/racket/src/worksp/cs/recompile.rkt +++ b/racket/src/worksp/cs/recompile.rkt @@ -19,6 +19,7 @@ (parameterize ([current-directory (build-path scheme-dir machine "nanopass")]) (define o (open-output-bytes)) (write-nanopass-config o) + (remove-files #rx"[.]so$") (write '(compile-library "nanopass.ss" "nanopass.so") o) (parameterize ([current-input-port (open-input-bytes (get-output-bytes o))]) (system* (build-path abs-scheme-dir machine "bin" machine "scheme.exe") @@ -68,3 +69,8 @@ (define (write-system-config o) (write-config o) (write '(subset-mode (quote system)) o)) + +(define (remove-files rx) + (for ([f (in-directory)]) + (when (regexp-match? rx f) + (delete-file f))))