aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-05-16 14:31:37 +0200
committerLudovic Courtès <ludo@gnu.org>2017-05-16 14:31:37 +0200
commitce92d269fea0a2bfac0ac20414f77127d2f07500 (patch)
tree5a740f07d8457920ce49ee43e329a7abc7b6c61e
parent5a3429bcc52a47ca9c879b9ace092eecddeed300 (diff)
downloadguix-ce92d269fea0a2bfac0ac20414f77127d2f07500.tar
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.
-rw-r--r--guix/ui.scm7
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)