From ce92d269fea0a2bfac0ac20414f77127d2f07500 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 16 May 2017 14:31:37 +0200
Subject: ui: Disable Guile deprecation warnings by default.

* guix/ui.scm (initialize-guix): Call (debug-disable 'warn-deprecated)
when "GUILE_WARN_DEPRECATED" is not set.
---
 guix/ui.scm | 7 +++++++
 1 file changed, 7 insertions(+)

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 @@ (define (install-locale)
 
 (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)
 
-- 
cgit v1.2.3