[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

04/09: build-system/guile: Add target-guile-scm+go procedure.

From: guix-commits
Subject: 04/09: build-system/guile: Add target-guile-scm+go procedure.
Date: Wed, 15 Nov 2023 12:33:42 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit 3493832260fdb7298c2f661e1c9fbe366e578693
Author: Tomas Volf <>
AuthorDate: Sun Oct 29 13:56:13 2023 +0100

    build-system/guile: Add target-guile-scm+go procedure.
    The paths to .scm and .go files can be constructed given a guile version 
and a
    base directory.  However it is few lines of code that needs to be 
    This new procedure returns both of them reducing the maintenance cost.
    * guix/build/guile-build-system.scm (target-guile-scm+go): New procedure.
    Change-Id: I58615f2cfe0ec1e58d3fbb47b738ed5dce1bb252
    Signed-off-by: Ludovic Courtès <>
 guix/build/guile-build-system.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/guix/build/guile-build-system.scm 
index 32a431d347..e7e7f2d0be 100644
--- a/guix/build/guile-build-system.scm
+++ b/guix/build/guile-build-system.scm
@@ -28,6 +28,7 @@
   #:use-module (ice-9 format)
   #:use-module (guix build utils)
   #:export (target-guile-effective-version
+            target-guile-scm+go
@@ -44,7 +45,17 @@ Return #false if it cannot be determined."
          (string? line)
-(define (file-sans-extension file)                ;TODO: factorize
+(define* (target-guile-scm+go output #:optional guile)
+  "Return paths under `output' for scm and go files for effective version of
+GUILE or whichever `guile' is in $PATH.  Raises an error if they cannot be
+  (let* ((version (or (target-guile-effective-version guile)
+                      (error "Cannot determine the effective target guile 
+         (scm (string-append output "/share/guile/site/" version))
+         (go (string-append output "/lib/guile/" version "/site-ccache")))
+    (values scm go)))
+(define (file-sans-extension file)      ;TODO: factorize
   "Return the substring of FILE without its extension, if any."
   (let ((dot (string-rindex file #\.)))
     (if dot

reply via email to

[Prev in Thread] Current Thread [Next in Thread]