propagate enable-check-prelex-flags to separate-eval sub-process in tests
original commit: 760c3414e412ecb6708c890e32fdb8056be1e805
This commit is contained in:
parent
f425d8846d
commit
c5e349cacb
2
LOG
2
LOG
|
@ -937,3 +937,5 @@
|
||||||
wininstall/product.wxs
|
wininstall/product.wxs
|
||||||
- Use Windows path separator character when finding boot files on Windows.
|
- Use Windows path separator character when finding boot files on Windows.
|
||||||
scheme.c
|
scheme.c
|
||||||
|
- Propagate enable-check-prelex-flags to separate-eval sub-process in tests.
|
||||||
|
mats.ss
|
|
@ -380,6 +380,7 @@
|
||||||
(open-process-ports (format "~a -q" (patch-exec-path *scheme*))
|
(open-process-ports (format "~a -q" (patch-exec-path *scheme*))
|
||||||
(buffer-mode block)
|
(buffer-mode block)
|
||||||
(native-transcoder))])
|
(native-transcoder))])
|
||||||
|
(pretty-print `(#%$enable-check-prelex-flags ,(#%$enable-check-prelex-flags)) to-stdin)
|
||||||
(for-each (lambda (expr) (pretty-print expr to-stdin)) expr*)
|
(for-each (lambda (expr) (pretty-print expr to-stdin)) expr*)
|
||||||
(close-port to-stdin)
|
(close-port to-stdin)
|
||||||
(let* ([stdout-stuff (slurp from-stdout)]
|
(let* ([stdout-stuff (slurp from-stdout)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user