.
original commit: 1042823755fdd4e61afcf3b04312c68a8ebb6842
This commit is contained in:
parent
d9f145e3e9
commit
06f9d4d900
|
@ -13,7 +13,7 @@
|
|||
|
||||
(define (shell-path/args who argstr)
|
||||
(case (system-type)
|
||||
((unix) (append '("/bin/sh" "-c") argstr))
|
||||
((unix) (append '("/bin/sh" "-c") (list argstr)))
|
||||
((windows) (let ([cmd
|
||||
(let ([d (find-system-path 'sys-dir)])
|
||||
(let ([cmd (build-path d "cmd.exe")])
|
||||
|
|
Loading…
Reference in New Issue
Block a user