diff options
author | Peter Bex <peter@more-magic.net> | 2018-04-21 10:40:07 +0200 |
---|---|---|
committer | Peter Bex <peter@more-magic.net> | 2018-04-21 10:40:07 +0200 |
commit | e0a136839ff1f359f01320e2c3e32bae0164b785 (patch) | |
tree | da976ea1a338a089357670956e1317e26e98bd40 /scsh-process.scm | |
parent | 512af2ee5a33c3001f74a60f9c61dd3a08137276 (diff) | |
download | scsh-process-e0a136839ff1f359f01320e2c3e32bae0164b785.tar.gz |
Make ">" redirect truncate existing files
Thanks to Joerg Wittenberger
Diffstat (limited to 'scsh-process.scm')
-rw-r--r-- | scsh-process.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/scsh-process.scm b/scsh-process.scm index c5a286c..f675a2c 100644 --- a/scsh-process.scm +++ b/scsh-process.scm @@ -415,9 +415,10 @@ ((_ (> ?file-name)) (setup-redirection (> 1 ?file-name))) ((_ (>> ?file-name)) (setup-redirection (>> 1 ?file-name))) ((_ (> ?fd ?file-name)) - (duplicate-fileno (file-open (maybe->string `?file-name) - (fx+ open/wronly open/creat)) - `?fd)) + (duplicate-fileno + (file-open (maybe->string `?file-name) + (fx+ (fx+ open/wronly open/creat) open/trunc)) + `?fd)) ((_ (>> ?fd ?file-name)) (duplicate-fileno (file-open (maybe->string `?file-name) (fx+ open/wronly (fx+ open/append open/creat))) |