Jan Nieuwenhuizen (2016-08-18 09:08 +0300) wrote:
[...]
> + (arguments
> + `(#:configure-flags '("--host=i686-w64-mingw32")
> + #:phases
> + (modify-phases %standard-phases
> + (add-before
> + 'configure 'setenv
it's more good-looking if this line is moved to the previous one :-)
(add-before 'configure 'setenv
> + (lambda* (#:key inputs #:allow-other-keys)
> + (let ((xgcc-core (assoc-ref inputs "xgcc-core"))
> + (mingw-headers (string-append (getcwd)
> "/mingw-w64-headers")))
> + (setenv "CPP"
> + (string-append xgcc-core "/bin/i686-w64-mingw32-cpp"))
> + (setenv "CROSS_C_INCLUDE_PATH"
> + (string-append
> + mingw-headers
> + ":" mingw-headers "/include"
> + ":" mingw-headers "/crt"
> + ":" mingw-headers "/defaults/include"
> + ":" mingw-headers "/direct-x/include"))))))
--
Alex
