From 900f7267341da3281e937cb0b128b21975574867 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 28 Jun 2012 22:38:09 +0200
Subject: Introduce `compile-time-value' and use it.

* guix/utils.scm (compile-time-value): New macro.
  (%nixpkgs-directory): Use it.

* guix/build-system/gnu.scm (%standard-inputs): Likewise.
---
 guix/utils.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'guix/utils.scm')

diff --git a/guix/utils.scm b/guix/utils.scm
index 05c04b87f1..bcea0193d0 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -45,6 +45,7 @@
             nixpkgs-derivation
 
             define-record-type*
+            compile-time-value
             memoize
             gnu-triplet->nix-system
             %current-system))
@@ -376,8 +377,21 @@ starting from the right of S."
 ;;; Nixpkgs.
 ;;;
 
+(define-syntax compile-time-value
+  (syntax-rules ()
+    "Evaluate the given expression at compile time.  The expression must
+evaluate to a simple datum."
+    ((_ exp)
+     (let-syntax ((v (lambda (s)
+                       (let ((val exp))
+                         (syntax-case s ()
+                           (_ #`'#,(datum->syntax s val)))))))
+       v))))
+
 (define %nixpkgs-directory
-  (make-parameter (getenv "NIXPKGS")))
+  (make-parameter
+   ;; Capture the build-time value of $NIXPKGS.
+   (compile-time-value (getenv "NIXPKGS"))))
 
 (define (nixpkgs-derivation attribute)
   "Return the derivation path of ATTRIBUTE in Nixpkgs."
-- 
cgit v1.2.3