From 528e0554666ef851f798d5bb7a4e5e7766fabaf0 Mon Sep 17 00:00:00 2001
From: Oscar Waddell <owaddell@beckman.com>
Date: Fri, 13 Apr 2018 11:12:25 -0400
Subject: [PATCH] use patch-exec-path in 7.ms

original commit: a4cc341a57b381c63ed79f316a9bf4fec12bfb70
---
 mats/7.ms | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/mats/7.ms b/mats/7.ms
index f7009ce87e..d1f3266d40 100644
--- a/mats/7.ms
+++ b/mats/7.ms
@@ -917,10 +917,7 @@
           "testfile-5.ss"))
       (let-values ([(to-stdin from-stdout from-stderr pid)
                     (open-process-ports
-                      (format "~a -b testfile.boot -q"
-                        (if (windows?)
-                            (list->string (subst #\\ #\/ (string->list *scheme*)))
-                            *scheme*))
+                      (format "~a -b testfile.boot -q" (patch-exec-path *scheme*))
                       (buffer-mode block)
                       (native-transcoder))])
         (close-output-port to-stdin)
@@ -941,10 +938,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"
-                        (if (windows?)
-                            (list->string (subst #\\ #\/ (string->list *scheme*)))
-                            *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)
@@ -971,10 +965,7 @@
           "testfile-5.so"))
       (let-values ([(to-stdin from-stdout from-stderr pid)
                     (open-process-ports
-                      (format "~a -b testfile.boot -q"
-                        (if (windows?)
-                            (list->string (subst #\\ #\/ (string->list *scheme*)))
-                            *scheme*))
+                      (format "~a -b testfile.boot -q" (patch-exec-path *scheme*))
                       (buffer-mode block)
                       (native-transcoder))])
         (close-output-port to-stdin)
@@ -3328,9 +3319,7 @@ evaluating module init
         'replace)
      ; compile in a separate Scheme process
       (if (windows?)
-          (system (format "echo (compile-file \"testfile\") | ~a"
-                    (list->string
-                      (subst #\\ #\/ (string->list *scheme*)))))
+          (system (format "echo (compile-file \"testfile\") | ~a" (patch-exec-path *scheme*)))
           (system (format "echo '(compile-file \"testfile\")' | ~a" *scheme*)))
       (load "testfile.so")
       (list (top-level-bound? '$notfribblefratz) (top-level-value '$notfribblefratz)))