original commit: 19c859a1962bd8b24920e0e894964e9ba23da1d6
This commit is contained in:
Matthew Flatt 2004-06-03 14:53:53 +00:00
parent 40b397c2cd
commit 603b31de63

View File

@ -28,8 +28,7 @@
(build-path d 'up "command.com"))))))])
(list cmd
'exact
(string->bytes/utf-8
(format "~a /c ~a" cmd argstr)))))
(format "~a /c ~a" (path->string cmd) argstr))))
(else (raise-mismatch-error
who
(format "~a: don't know what shell to use for platform: " who)