From 523384742a7c850dc52fdfaf3fc168a4ef0cf2d1 Mon Sep 17 00:00:00 2001 From: Bob Burger Date: Tue, 15 Jan 2019 13:21:17 -0500 Subject: [PATCH] fixed 7.ms to specify the relative path of testfile.boot original commit: 3ee3ffaccd2c50f69b183b4b14318b6a7aa382e7 --- LOG | 2 ++ mats/7.ms | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/LOG b/LOG index 448da06fad..ac677cb7f5 100644 --- a/LOG +++ b/LOG @@ -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 diff --git a/mats/7.ms b/mats/7.ms index 4fea56332f..2e5795620f 100644 --- a/mats/7.ms +++ b/mats/7.ms @@ -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)