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

use patch-exec-path in 7.ms

Browse Source 
original commit: a4cc341a57b381c63ed79f316a9bf4fec12bfb70
This commit is contained in:
Oscar Waddell 2018-04-13 11:12:25 -04:00
parent 8220ce2b32
commit 528e055466
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mats/7.ms
View File

@ -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)))