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

cs: repair recompile of Chez Scheme in Windows build

Browse Source
This commit is contained in:
Matthew Flatt 2019-07-26 16:55:14 -06:00
parent 2a1ffbbdf1
commit 01af30a517
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/worksp/cs/recompile.rkt
View File

@ -19,6 +19,7 @@
(parameterize ([current-directory (build-path scheme-dir machine "nanopass")]) (parameterize ([current-directory (build-path scheme-dir machine "nanopass")])
(define o (open-output-bytes)) (define o (open-output-bytes))
(write-nanopass-config o) (write-nanopass-config o)
(remove-files #rx"[.]so$")
(write '(compile-library "nanopass.ss" "nanopass.so") o) (write '(compile-library "nanopass.ss" "nanopass.so") o)
(parameterize ([current-input-port (open-input-bytes (get-output-bytes o))]) (parameterize ([current-input-port (open-input-bytes (get-output-bytes o))])
(system* (build-path abs-scheme-dir machine "bin" machine "scheme.exe") (system* (build-path abs-scheme-dir machine "bin" machine "scheme.exe")
@ -68,3 +69,8 @@
(define (write-system-config o) (define (write-system-config o)
(write-config o) (write-config o)
(write '(subset-mode (quote system)) o)) (write '(subset-mode (quote system)) o))
(define (remove-files rx)
(for ([f (in-directory)])
(when (regexp-match? rx f)
(delete-file f))))