[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: website: packages: Delay call to 'official-gnu-packages'.
From: |
Ludovic Courtès |
Subject: |
02/02: website: packages: Delay call to 'official-gnu-packages'. |
Date: |
Tue, 29 Dec 2015 11:25:33 +0000 |
civodul pushed a commit to branch master
in repository guix-artwork.
commit 7236643b44c49b37523d063454e41223ccc83c35
Author: Ludovic Courtès <address@hidden>
Date: Tue Dec 29 12:24:41 2015 +0100
website: packages: Delay call to 'official-gnu-packages'.
* website/www/packages.scm (lookup-gnu-package): Delay the call to
'official-gnu-packages'.
---
website/www/packages.scm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/website/www/packages.scm b/website/www/packages.scm
index 21d98d0..6ea974b 100644
--- a/website/www/packages.scm
+++ b/website/www/packages.scm
@@ -48,12 +48,12 @@
issues-page))
(define lookup-gnu-package
- (let ((gnu (official-gnu-packages)))
+ (let ((gnu (delay (official-gnu-packages))))
(lambda (name)
"Return the package description for GNU package NAME, or #f."
(find (lambda (package)
(equal? (gnu-package-name package) name))
- gnu))))
+ (force gnu)))))
(define (list-join lst item)
"Join the items in LST by inserting ITEM between each pair of elements."