Re: [Chicken-hackers] [PATCH] compile-file: options override default options

[Christian Kellermann]

* felix winkelmann <address@hidden> [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.