diff options
Diffstat (limited to 'src/ChezScheme/mats/unix.ms')
-rw-r--r-- | src/ChezScheme/mats/unix.ms | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ChezScheme/mats/unix.ms b/src/ChezScheme/mats/unix.ms index cfba3e727b..db7f6f9378 100644 --- a/src/ChezScheme/mats/unix.ms +++ b/src/ChezScheme/mats/unix.ms @@ -72,8 +72,8 @@ (mat system (eqv? (with-output-to-file "testfile.ss" void '(replace)) (void)) (begin - (system (format "~:[~;/pkg~]/bin/rm testfile.ss" (embedded?))) - (system (format "~:[~;/pkg~]/bin/echo hello > testfile.ss" (embedded?))) + (system "rm -f testfile.ss") + (system "echo hello > testfile.ss") (let ([p (open-input-file "testfile.ss")]) (and (eq? (read p) 'hello) (begin (close-input-port p) #t)))) |