Changeset 15561 in project


Ignore:
Timestamp:
08/25/09 10:19:04 (10 years ago)
Author:
felix
Message:

replaced static platform test with dynamic one

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/utils.scm

    r15275 r15561  
    133133      (let ((cscpath (or (file-exists? (make-pathname path csc)) "csc"))
    134134            (tmpfile (and (not output-file) (create-temporary-file "so")))
    135             (crapshell (cond-expand ((or mingw32 msvc) #t) (else #f))))
     135            (crapshell (memq (build-platform) '(mingw32 msvc))))
    136136        (print "; compiling " filename " ...")
    137137        (system*
Note: See TracChangeset for help on using the changeset viewer.