01/07: describe: Warn about 'GUIX_PACKAGE_PATH' in json and recutils format.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit b6fd086a61b3004f9f5392f630155b9ad01752e1
Author: Ludovic Courtès <address@hidden>
Date:   Mon Mar 18 09:50:10 2019 +0100

    describe: Warn about 'GUIX_PACKAGE_PATH' in json and recutils format.
    
    Fixes <https://bugs.gnu.org/34884>.
    Reported by Pierre Neidhardt <address@hidden>.
    
    * guix/scripts/describe.scm (display-package-search-path): Add catch-all
    case for FMT.
---
 guix/scripts/describe.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 7d0ecb0..b6287d3 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2018 Ludovic Courtès <address@hidden>
+;;; Copyright © 2018, 2019 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2018 Oleg Pykhalov <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -85,7 +85,9 @@ Display information about the channels currently in use.\n"))
         (format #t "~%GUIX_PACKAGE_PATH=\"~a\"~%" string))
        ('channels
         (format #t (G_ "~%;; warning: GUIX_PACKAGE_PATH=\"~a\"~%")
-                string))))))
+                string))
+       (_
+        (warning (G_ "'GUIX_PACKAGE_PATH' is set but it is not 
captured~%")))))))
 
 (define (channel->sexp channel)
   `(channel