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

use process/ports with std ports

Browse Source 
svn: r2085
This commit is contained in:
Eli Barzilay 2006-02-02 14:15:25 +00:00
parent b97062cb99
commit 67ebc2e4a0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/misc.ss
View File

@ -71,7 +71,12 @@
'play-sound 'play-sound
"not supported by default on this platform" "not supported by default on this platform"
subpath)])))]) subpath)])))])
((if async? (lambda (x) (process x) #t) system) ((if async?
(lambda (x)
(process/ports
(current-output-port) (current-input-port) (current-error-port) x)
#t)
system)
(format cmd (string-append (format cmd (string-append
"\"" "\""
(regexp-replace* #rx"([$\"\\])" (regexp-replace* #rx"([$\"\\])"