[no subject]

[Ludovic Courtès]

branch: master
commit ee0e45e12e9ef240c5a29ad421f6908f3ce243fb
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Aug 7 16:48:10 2023 +0200

    templates: Fix possible wrong-type-arg error in 'checkout-table'.
    
    * src/cuirass/templates.scm (checkout-table): Move 'channel-url' call
    after checking whether CHANNEL is true.  Move 'commit' as well.
---
 src/cuirass/templates.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 1751a05..efbb78e 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -1259,14 +1259,14 @@ the nearest exact even integer."
                            (channel (find (lambda (channel)
                                             (eq? (channel-name channel)
                                                  name))
-                                          channels))
-                           (url   (channel-url channel))
-                           (commit (assq-ref checkout #:commit)))
+                                          channels)))
                       ;; Some checkout entries may refer to removed
                       ;; inputs.
                       (if channel
-                          `(tr (td ,url)
-                               (td (code ,(commit-hyperlink url commit))))
+                          (let ((url (channel-url channel))
+                                (commit (assq-ref checkout #:commit)))
+                            `(tr (td ,url)
+                                 (td (code ,(commit-hyperlink url commit)))))
                           '())))
                   checkouts))))