01/02: build: Add and export procedure 'register-root*'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a09b45da6fe951112eb30da5feb0f86266f8ba8a
Author: Chris Marusich <address@hidden>
Date:   Tue Apr 4 20:24:54 2017 -0700

    build: Add and export procedure 'register-root*'.
    
    * guix/scripts/build.scm (register-root*): Add and export it.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 guix/scripts/build.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index ba47b12..6bb1f72 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -52,7 +52,8 @@
             show-transformation-options-help
 
             guix-build
-            register-root))
+            register-root
+            register-root*))
 
 (define %default-log-urls
   ;; Default base URLs for build logs.
@@ -123,6 +124,9 @@ found.  Return #f if no build log was found."
         (leave (_ "failed to create GC root `~a': ~a~%")
                root (strerror (system-error-errno args)))))))
 
+(define register-root*
+  (store-lift register-root))
+
 (define (package-with-source store p uri)
   "Return a package based on P but with its source taken from URI.  Extract
 the new package's version number from URI."