From bb31e0a3ee2ba23fa7a57471b0aa2363404f4c27 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 18 May 2014 19:12:43 +0200 Subject: store: Change #:store parameter to #:prefix. * guix/store.scm (register-path): Change #:store to #:prefix. --- guix/store.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/guix/store.scm b/guix/store.scm index 1731c14f27..073e024e38 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -797,10 +797,10 @@ signing them if SIGN? is true." (loop tail))))))) (define* (register-path path - #:key (references '()) deriver store) + #:key (references '()) deriver prefix) "Register PATH as a valid store file, with REFERENCES as its list of -references, and DERIVER as its deriver (.drv that led to it.) If STORE is not -#f, it must be a string denoting the directory name of the new store to +references, and DERIVER as its deriver (.drv that led to it.) If PREFIX is +not #f, it must be the name of the directory containing the new store to initialize. Return #t on success. Use with care as it directly modifies the store! This is primarily meant to @@ -809,8 +809,8 @@ be used internally by the daemon's build hook." (catch 'system-error (lambda () (let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program - (if store - `("--prefix" ,store) + (if prefix + `("--prefix" ,prefix) '())))) (and pipe (begin -- cgit 1.4.1