On Mon, Jul 25, 2016 at 11:47:51AM +0000, ng0 wrote:
> (with-fluids ((%default-port-encoding #f))
> (substitute* (find-files "tests" "\\.c$")
> (("(system *\\(\")(/[^ ]*)" all pre prog-path)
> (let* ((base (basename prog-path))
> - (prog (which (if (string=? base "gpg") "gpg2"
> base))))
> + (prog (which base)))
> (string-append pre
> (or prog (error "not found: "
> base))))))))))))
I can confirm this fixes the build failure. But, I don't fully
understand the code that was changed. Can somebody double-check it?
