From 01d8ac64abaac9202c32848f7c4a394393ba6534 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 2 Feb 2015 12:46:09 +0100
Subject: store: Remove 'build-derivations'.

* guix/store.scm (build-derivations): Remove.
* guix/derivations.scm (build-derivations): Write in terms of
  'build-things'.
* doc/guix.texi (Invoking guix build): Adjust text accordingly.
---
 guix/derivations.scm | 16 +++++++---------
 guix/store.scm       |  4 ----
 2 files changed, 7 insertions(+), 13 deletions(-)

(limited to 'guix')

diff --git a/guix/derivations.scm b/guix/derivations.scm
index edf6b57e86..2cbf46f465 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -94,6 +94,7 @@
 
             map-derivation
 
+            build-derivations
             built-derivations
             imported-modules
             compiled-modules
@@ -102,9 +103,7 @@
             imported-files)
 
   ;; Re-export it from here for backward compatibility.
-  #:re-export (%guile-for-build)
-
-  #:replace (build-derivations))
+  #:re-export (%guile-for-build))
 
 ;;;
 ;;; Error conditions.
@@ -916,12 +915,11 @@ recursively."
 
 (define (build-derivations store derivations)
   "Build DERIVATIONS, a list of <derivation> objects or .drv file names."
-  (let ((build (@ (guix store) build-derivations)))
-    (build store (map (match-lambda
-                       ((? string? file) file)
-                       ((and drv ($ <derivation>))
-                        (derivation-file-name drv)))
-                      derivations))))
+  (build-things store (map (match-lambda
+                            ((? string? file) file)
+                            ((and drv ($ <derivation>))
+                             (derivation-file-name drv)))
+                           derivations)))
 
 
 ;;;
diff --git a/guix/store.scm b/guix/store.scm
index 5618fa340a..02d84eb517 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -64,7 +64,6 @@
             add-to-store
             build-things
             build
-            build-derivations
             add-temp-root
             add-indirect-root
             add-permanent-root
@@ -582,9 +581,6 @@ that are not derivations can only be substituted and not built locally.
 Return #t on success."
   boolean)
 
-;; Deprecated name for 'build-things'.
-(define build-derivations build-things)
-
 (define-operation (add-temp-root (store-path path))
   "Make PATH a temporary root for the duration of the current session.
 Return #t."
-- 
cgit v1.2.3