Browse Source

scripts: Remove initialization now redundant with `initialize-guix'.

* guix/scripts/build.scm (guix-build): Remove calls to `install-locale',
  `textdomain', etc., now redundant with `initialize-guix'.
* guix/scripts/download.scm (guix-download): Likewise.
* guix/scripts/import.scm (guix-import): Likewise.
* guix/scripts/package.scm (guix-package): Likewise.
* guix/ui.scm: Remove export of `install-locale' and `initialize-guix'.
  (initialize-guix): Add docstring.
gn-latest-20200428
Ludovic Courtès 9 years ago
parent
commit
633f045f62
5 changed files with 1 additions and 22 deletions
  1. +0
    -5
      guix/scripts/build.scm
  2. +0
    -5
      guix/scripts/download.scm
  3. +0
    -5
      guix/scripts/import.scm
  4. +0
    -5
      guix/scripts/package.scm
  5. +1
    -2
      guix/ui.scm

+ 0
- 5
guix/scripts/build.scm View File

@ -221,11 +221,6 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n"))
name version)
(leave (_ "~A: unknown package~%") name))))))
(install-locale)
(textdomain "guix")
(setvbuf (current-output-port) _IOLBF)
(setvbuf (current-error-port) _IOLBF)
(with-error-handling
(let ((opts (parse-options)))
(parameterize ((%store (open-connection)))


+ 0
- 5
guix/scripts/download.scm View File

@ -121,11 +121,6 @@ and the hash of its contents.\n"))
(alist-cons 'argument arg result))
%default-options))
(install-locale)
(textdomain "guix")
(setvbuf (current-output-port) _IOLBF)
(setvbuf (current-error-port) _IOLBF)
(let* ((opts (parse-options))
(store (open-connection))
(arg (assq-ref opts 'argument))


+ 0
- 5
guix/scripts/import.scm View File

@ -102,11 +102,6 @@ Import and convert the Nix expression ATTRIBUTE of NIXPKGS.\n"))
(alist-cons 'argument arg result))
%default-options))
(install-locale)
(textdomain "guix")
(setvbuf (current-output-port) _IOLBF)
(setvbuf (current-error-port) _IOLBF)
(let* ((opts (parse-options))
(args (filter-map (match-lambda
(('argument . value)


+ 0
- 5
guix/scripts/package.scm View File

@ -676,11 +676,6 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n"))
#t))
(_ #f))))
(install-locale)
(textdomain "guix")
(setvbuf (current-output-port) _IOLBF)
(setvbuf (current-error-port) _IOLBF)
(let ((opts (parse-options)))
(or (process-query opts)
(parameterize ((%store (open-connection)))


+ 1
- 2
guix/ui.scm View File

@ -30,8 +30,6 @@
#:use-module (ice-9 match)
#:export (_
N_
install-locale
initialize-guix
leave
show-version-and-exit
show-bug-report-information
@ -67,6 +65,7 @@
(strerror (system-error-errno args))))))
(define (initialize-guix)
"Perform the usual initialization for stand-alone Guix commands."
(install-locale)
(textdomain "guix")
(setvbuf (current-output-port) _IOLBF)


Loading…
Cancel
Save