10/15: gnu: clojure-algo-generic: Fix test failing under AOT in Clojure 1.11.1.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 884c87a1006a35e78f4db4eafd5b98d4b4328136
Author: r0man <roman@burningswell.com>
AuthorDate: Sat Jul 16 20:24:22 2022 +0200

    gnu: clojure-algo-generic: Fix test failing under AOT in Clojure 1.11.1.
    
    * gnu/packages/clojure.scm (clojure-algo-generic)[arguments]: Add
    'fix-import' phase.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/clojure.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/clojure.scm b/gnu/packages/clojure.scm
index dfff54f8ee..840584b162 100644
--- a/gnu/packages/clojure.scm
+++ b/gnu/packages/clojure.scm
@@ -275,7 +275,15 @@ Clojure repl, use Clojure and Java libraries, and start 
Clojure programs.")
     (arguments
      '(#:source-dirs '("src/main/clojure/")
        #:test-dirs '("src/test/clojure/")
-       #:doc-dirs '()))
+       #:doc-dirs '()
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-import
+           (lambda _
+             (substitute*
+                 "src/main/clojure/clojure/algo/generic/math_functions.clj"
+               (("clojure.algo.generic.math-functions")
+                "clojure.algo.generic.math-functions\n(:refer-clojure :exclude 
[abs])")))))))
     (synopsis "Generic versions of common functions")
     (description
      "Generic versions of commonly used functions, implemented as multimethods