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

fixed 7.ms to specify the relative path of testfile.boot

Browse Source 
original commit: 3ee3ffaccd2c50f69b183b4b14318b6a7aa382e7
This commit is contained in:
Bob Burger 2019-01-15 13:21:17 -05:00
parent 20ab41bb10
commit 523384742a
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LOG
View File

@ -1030,3 +1030,5 @@
- redirecting output of first two checkboot runs to /dev/null so the
ignored exception, if any, does not show up in the make output.
s/Mf-base
- fixed 7.ms to specify the relative path of testfile.boot
7.ms

6
mats/7.ms
View File

@ -925,7 +925,7 @@
"testfile-5.ss"))
(let-values ([(to-stdin from-stdout from-stderr pid)
(open-process-ports
(format "~a -b testfile.boot -q" (patch-exec-path *scheme*))
(format "~a -b ./testfile.boot -q" (patch-exec-path *scheme*))
(buffer-mode block)
(native-transcoder))])
(close-output-port to-stdin)
@ -946,7 +946,7 @@
(make-boot-file "testfile.boot" '("petite") "testfile-libs.so"))
(let-values ([(to-stdin from-stdout from-stderr pid)
(open-process-ports
(format "~a -b testfile.boot -q" (patch-exec-path *scheme*))
(format "~a -b ./testfile.boot -q" (patch-exec-path *scheme*))
(buffer-mode block)
(native-transcoder))])
(pretty-print '(let () (import (B)) (printf "~s\n" b)) to-stdin)
@ -973,7 +973,7 @@
"testfile-5.so"))
(let-values ([(to-stdin from-stdout from-stderr pid)
(open-process-ports
(format "~a -b testfile.boot -q" (patch-exec-path *scheme*))
(format "~a -b ./testfile.boot -q" (patch-exec-path *scheme*))
(buffer-mode block)
(native-transcoder))])
(close-output-port to-stdin)