03/07: channels: Turn off deprecation warnings when loading 'build-self.scm'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3a8c4860fbccc840b28227dbe44cfffb128a91e0
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jan 28 22:42:48 2019 +0100

    channels: Turn off deprecation warnings when loading 'build-self.scm'.
    
    * guix/channels.scm (build-from-source): Parameterize
    DEPRECATION-WARNING-PORT when loading SCRIPT.
---
 guix/channels.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix/channels.scm b/guix/channels.scm
index 10345c1..f386d18 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -27,6 +27,7 @@
   #:use-module (guix profiles)
   #:use-module (guix derivations)
   #:use-module (guix combinators)
+  #:use-module (guix deprecation)
   #:use-module (guix store)
   #:use-module (guix i18n)
   #:use-module ((guix utils)
@@ -275,7 +276,12 @@ package modules under SOURCE using CORE, an instance of 
Guix."
   (if (file-exists? script)
       (let ((build (save-module-excursion
                     (lambda ()
-                      (primitive-load script)))))
+                      ;; Disable deprecation warnings; it's OK for SCRIPT to
+                      ;; use deprecated APIs and the user doesn't have to know
+                      ;; about it.
+                      (parameterize ((deprecation-warning-port
+                                      (%make-void-port "w")))
+                        (primitive-load script))))))
         ;; BUILD must be a monadic procedure of at least one argument: the
         ;; source tree.
         ;;