Alex Vong <alexvong1...@gmail.com> writes:
> + #:phases
> + (modify-phases %standard-phases
> + (delete 'configure)
> + (replace 'unpack
> + (lambda _
> + (and (mkdir "clojure/")
> + (zero? (system* "unzip"
> + "-d" "clojure/"
> + (assoc-ref %build-inputs "source")))
> + (chdir "clojure/"))))
The return value of 'mkdir' and 'chdir' is unspecified. Therefore it
should not be used.
> + (add-after 'remove-jar 'unpack-submodule-sources
> + (lambda* (#:key inputs #:allow-other-keys)
> + (let ((unpack
> + (lambda (src-name)
> + (and (mkdir src-name)
> + (with-directory-excursion src-name
> + (zero? (system* "tar"
> + "zxvf"
> + (assoc-ref inputs src-name)
> + "--strip-components=1"))))))
> + (copy (lambda (src-name)
> + (copy-recursively
> + (string-append src-name "/src/main/clojure/")
> + (string-append "clojure-" ,version
> "/src/clj/")))))
> + (every (lambda (src)
> + (begin (unpack src)
> + (copy src)))
> + '("data-generators-src" "java-classpath-src"
> + "test-check-src" "test-generative-src"
> + "tools-namespace-src" "tools-reader-src")))))
Same.
Regards,
Fede
