Changeset 15483 in project for chicken/trunk


Ignore:
Timestamp:
08/14/09 18:42:29 (10 years ago)
Author:
felix winkelmann
Message:

applied patch to csc by Zbigniew to always exit with a status code of 1 on errors (as somehow the error status got lost previously)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/csc.scm

    r15276 r15483  
    527527                         target-filename target-filename)
    528528                 (unless (zero? ($system (sprintf "~A ~A ~A"
    529                                                   (if *windows-shell* "move" "mv")
     529                                                  (if windows-shell "move" "mv")
    530530                                                  (quotewrap target-filename)
    531531                                                  (quotewrap (string-append target-filename ".old")))))
     
    920920                 (string-append "\"" str "\"")
    921921                 str)))
    922     (set! last-exit-code
    923       (if dry-run
    924           0
    925           (system str)))
    926     (unless (zero? last-exit-code)
    927       (printf "\nError: shell command terminated with non-zero exit status ~S: ~A~%" last-exit-code str) )
    928     last-exit-code))
     922    (let ((raw-exit-code (if dry-run 0 (system str))))
     923      (unless (zero? raw-exit-code)
     924        (printf "\nError: shell command terminated with non-zero exit status ~S: ~A~%" raw-exit-code str))
     925      (set! last-exit-code
     926        (if (zero? raw-exit-code) 0 1))
     927      last-exit-code)))
    929928
    930929(define ($delete-file str)
Note: See TracChangeset for help on using the changeset viewer.