* felix winkelmann <[email protected]> [120316 08:55]: > In the attached patch, "compile-file" was changed to allow overriding > the default compilation options (previously the default options were > always added to the options given).
> - (lambda (filename #!key (options '()) output-file (load #t) verbose) > + (lambda (filename #!key options output-file (load #t) verbose) This should read (options #f) I think. > (let* ((cscpath (or (file-exists? (make-pathname path csc)) "csc")) > (tmpfile (and (not output-file) (create-temporary-file "so"))) > (crapshell (eq? (build-platform) 'mingw32)) > (cmd (sprintf "~a~a -s ~a ~a -o ~a~a" > (if crapshell "\"" "") > (qs cscpath) > - (string-intersperse (append (compile-file-options) options) > " ") > + (string-intersperse > + (or options > + (compile-file-options))) > (qs filename) > (qs (or output-file tmpfile)) > (if crapshell "\"" "")))) > -- Kind regards, Christian -- 9 out of 10 voices in my head say, that I am crazy, one is humming. _______________________________________________ Chicken-hackers mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-hackers
