diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-16 14:31:37 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-16 14:31:37 +0200 |
| commit | ce92d269fea0a2bfac0ac20414f77127d2f07500 (patch) | |
| tree | 5a740f07d8457920ce49ee43e329a7abc7b6c61e /guix/ui.scm | |
| parent | 5a3429bcc52a47ca9c879b9ace092eecddeed300 (diff) | |
| download | gnu-guix-ce92d269fea0a2bfac0ac20414f77127d2f07500.tar gnu-guix-ce92d269fea0a2bfac0ac20414f77127d2f07500.tar.gz | |
ui: Disable Guile deprecation warnings by default.
* guix/ui.scm (initialize-guix): Call (debug-disable 'warn-deprecated)
when "GUILE_WARN_DEPRECATED" is not set.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index edd04daa81..9e0fa26d19 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -302,6 +302,13 @@ exiting. ARGS is the list of arguments received by the 'throw' handler." (define (initialize-guix) "Perform the usual initialization for stand-alone Guix commands." + ;; By default don't annoy users with deprecation warnings. In practice, + ;; 'define-deprecated' in (ice-9 deprecated) arranges so that those warnings + ;; are emitted at expansion-time only, but there are cases where they could + ;; slip through, for instance when interpreting code. + (unless (getenv "GUILE_WARN_DEPRECATED") + (debug-disable 'warn-deprecated)) + (install-locale) (textdomain %gettext-domain) |