about summary refs log tree commit diff
path: root/.guix
diff options
context:
space:
mode:
Diffstat (limited to '.guix')
-rw-r--r--.guix/run64-package.scm24
1 files changed, 22 insertions, 2 deletions
diff --git a/.guix/run64-package.scm b/.guix/run64-package.scm
index be9332c..ec1099c 100644
--- a/.guix/run64-package.scm
+++ b/.guix/run64-package.scm
@@ -81,9 +81,29 @@ the experimental tree patterns.")
     (build-system gnu-build-system)
     (arguments
      (list #:make-flags #~(list (string-append "prefix=" #$output))
+           #:modules `(((guix build guile-build-system)
+                        #:select (target-guile-effective-version))
+                       ,@%default-gnu-imported-modules)
            #:phases
-           #~(modify-phases %standard-phases
-               (delete 'configure))))
+           (with-imported-modules `((guix build guile-build-system)
+                                    ,@%default-gnu-imported-modules)
+             #~(modify-phases %standard-phases
+                 (delete 'configure)
+                 (add-after 'install 'wrap
+                   (lambda* (#:key inputs outputs #:allow-other-keys)
+                     (let ((out (assoc-ref outputs "out"))
+                           (effective-version (target-guile-effective-version)))
+                       (wrap-program (string-append out "/bin/guile-run64")
+                         `("GUILE_LOAD_PATH" prefix
+                           (,(string-append out "/share/guile/site/" effective-version)
+                            ,(getenv "GUILE_LOAD_PATH")))
+                         `("GUILE_LOAD_COMPILED_PATH" prefix
+                           (,(string-append out "/lib/guile/"
+                                            effective-version "/site-ccache")
+                            ,(getenv "GUILE_LOAD_COMPILED_PATH")))))))))))
+    (inputs
+     (list guile-3.0
+           guile-chibi-match))
     (home-page "https://run64.systemreboot.net")
     (synopsis "SRFI-64 test runner for Scheme")
     (description "run64 is a SRFI-64 test runner for Scheme.")