mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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.
This commit is contained in:
parent
a24b75d8e1
commit
633f045f62
5 changed files with 1 additions and 22 deletions
|
@ -221,11 +221,6 @@ (define (find-package request)
|
|||
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)))
|
||||
|
|
|
@ -121,11 +121,6 @@ (define (parse-options)
|
|||
(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))
|
||||
|
|
|
@ -102,11 +102,6 @@ (define (parse-options)
|
|||
(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)
|
||||
|
|
|
@ -676,11 +676,6 @@ (define (process-query opts)
|
|||
#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)))
|
||||
|
|
|
@ -30,8 +30,6 @@ (define-module (guix ui)
|
|||
#:use-module (ice-9 match)
|
||||
#:export (_
|
||||
N_
|
||||
install-locale
|
||||
initialize-guix
|
||||
leave
|
||||
show-version-and-exit
|
||||
show-bug-report-information
|
||||
|
@ -67,6 +65,7 @@ (define (install-locale)
|
|||
(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…
Reference in a new issue