laminar: Use guile-3.0-latest for CI jobs. HEAD main

The upstream guix package now uses guile-3.0-latest. Most CI jobs use
the guix package, and if we run them with the older guile-3.0 package,
we get "incompatible bytecode version" warnings. So, switch to
guile-3.0-latest.

However, the real solution is probably to let CI jobs specify the
version of guile they want. This would be straightforward if we
accepted program-file objects instead of G-expressions as CI jobs.

1 files changed, 7 insertions, 3 deletions

diff --git a/guix/forge/laminar.scm b/guix/forge/laminar.scm
index dcbc5bf..74789be 100644
--- a/guix/forge/laminar.scm
+++ b/guix/forge/laminar.scm
@@ -1,5 +1,5 @@
 ;;; guix-forge --- Guix software forge meta-service
-;;; Copyright © 2021–2022, 2024–2025 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2021–2022, 2024–2026 Arun Isaac <arunisaac@systemreboot.net>
 ;;;
 ;;; This file is part of guix-forge.
 ;;;
@@ -21,6 +21,7 @@
   #:use-module (gnu)
   #:use-module (srfi srfi-1)
   #:use-module (gnu packages ci)
+  #:use-module ((gnu packages guile) #:select (guile-3.0-latest))
   #:use-module (gnu services ci)
   #:use-module (guix records)
   #:use-module (ice-9 match)
@@ -119,11 +120,14 @@ of @var{<forge-laminar-job>} objects."
                             (let ((name (forge-laminar-job-name job)))
                               `(,(let ((run-name (string-append name ".run")))
                                    `(,run-name ,(program-file run-name
-                                                              (forge-laminar-job-run job))))
+                                                              (forge-laminar-job-run job)
+                                                              #:guile guile-3.0-latest)))
                                 ,@(let ((after (forge-laminar-job-after job))
                                         (after-name (string-append name ".after")))
                                     (if after
-                                        `((,after-name ,(program-file after-name after)))
+                                        `((,after-name ,(program-file after-name
+                                                                      after
+                                                                      #:guile guile-3.0-latest)))
                                         '()))
                                 ,@(match (forge-laminar-job-contexts job)
                                     (() '())