[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: describe: Delete 'directory' argument from 'display-checkout-info

From: guix-commits
Subject: 01/01: describe: Delete 'directory' argument from 'display-checkout-info'.
Date: Tue, 27 Nov 2018 12:12:37 -0500 (EST)

wigust pushed a commit to branch master
in repository guix.

commit 01262f1ece37d5ae9af56c1de6c4eefc758f35ba
Author: Oleg Pykhalov <address@hidden>
Date:   Wed Nov 21 17:21:22 2018 +0300

    describe: Delete 'directory' argument from 'display-checkout-info'.
    This commit follows 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f.
    * guix/scripts/describe.scm (display-checkout-info): Delete 'directory'
 guix/scripts/describe.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 98be4ee..f21311a 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -103,11 +103,11 @@ Display information about the channels currently in 
   (format port "url: ~a~%" (channel-url channel))
   (format port "commit: ~a~%" (channel-commit channel)))
-(define* (display-checkout-info fmt #:optional directory)
+(define (display-checkout-info fmt)
   "Display information about the current checkout according to FMT, a symbol
 denoting the requested format.  Exit if the current directory does not lie
 within a Git checkout."
-  (let* ((program    (or directory (car (command-line))))
+  (let* ((program    (car (command-line)))
          (directory  (catch 'git-error
                        (lambda ()
                          (repository-discover (dirname program)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]