12 lines
562 B
Diff
12 lines
562 B
Diff
|
--- a/libsrc/gauche/process.scm
|
||
|
|
+++ b/libsrc/gauche/process.scm
|
||
|
|
@@ -880,7 +880,7 @@
|
||
|
|
[else (error "Invalid :error argument:" stderr)])))
|
||
|
|
(cond [(string? command)
|
||
|
|
(rc (cond-expand [gauche.os.windows `("cmd.exe" "/c" ,command)]
|
||
|
|
- [else `("/bin/sh" "-c" ,command)]))]
|
||
|
|
+ [else `("@TERMUX_PREFIX@/bin/sh" "-c" ,command)]))]
|
||
|
|
[(and (list? command) (every list? command))
|
||
|
|
(apply run-pipeline command
|
||
|
|
:input stdin :output stdout
|