From 27c4cbb571290ce59d7568a0a0ab3a8db81c7c4b Mon Sep 17 00:00:00 2001 From: Nicolas Graves Date: Sun, 8 Jan 2023 17:03:15 +0100 Subject: [PATCH] gnu: guile-aa-tree: Restrict install to aa-tree.scm. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/guile-xyz.scm (guile-aa-tree): [native-inputs]: Remove guile-2.2. [inputs]: Add guile-2.2. [arguments]: (scheme-file-regexp): Restrict install to aa-tree.scm [arguments]: (phases): Add check phase. Signed-off-by: Ludovic Courtès --- gnu/packages/guile-xyz.scm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 2fac8fbf7e..26535d99db 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -1293,7 +1293,23 @@ (define-public guile-aa-tree (base32 "0044c105r3q9vpl17pv3phl1b79kjm1llhkakqgiasixyav01blh")))) (build-system guile-build-system) - (native-inputs (list guile-2.2)) + (inputs (list guile-2.2)) + (arguments + (list + #:scheme-file-regexp "^aa-tree\\.scm" + #:phases + #~(modify-phases %standard-phases + (add-before 'install-documentation 'check + (lambda* (#:key inputs #:allow-other-keys) + (let* ((guile #$(this-package-input "guile")) + (effective (target-guile-effective-version guile)) + (go-dir (string-append #$output "/lib/guile/" + effective "/site-ccache/"))) + (invoke (search-input-file inputs "/bin/guile") + "--no-auto-compile" + "-C" go-dir + "-c" (string-append + "(load \"" (getcwd) "/test-aa-tree.scm\")")))))))) ;; https://savannah.nongnu.org/projects/guile-aa-tree (home-page "https://qlfiles.net/guile-aa-tree/") (synopsis "AA tree data structure for Guile")