1 | Index: csc.scm |
---|
2 | =================================================================== |
---|
3 | --- csc.scm (revision 15417) |
---|
4 | +++ csc.scm (working copy) |
---|
5 | @@ -919,13 +919,12 @@ |
---|
6 | (let ((str (if windows-shell |
---|
7 | (string-append "\"" str "\"") |
---|
8 | str))) |
---|
9 | - (set! last-exit-code |
---|
10 | - (if dry-run |
---|
11 | - 0 |
---|
12 | - (system str))) |
---|
13 | - (unless (zero? last-exit-code) |
---|
14 | - (printf "\nError: shell command terminated with non-zero exit status ~S: ~A~%" last-exit-code str) ) |
---|
15 | - last-exit-code)) |
---|
16 | + (let ((raw-exit-code (if dry-run 0 (system str)))) |
---|
17 | + (unless (zero? raw-exit-code) |
---|
18 | + (printf "\nError: shell command terminated with non-zero exit status ~S: ~A~%" raw-exit-code str)) |
---|
19 | + (set! last-exit-code |
---|
20 | + (if (zero? raw-exit-code) 0 1)) |
---|
21 | + last-exit-code))) |
---|
22 | |
---|
23 | (define ($delete-file str) |
---|
24 | (when verbose |
---|