01/08: build-system/glib-or-gtk: Support #:disallowed-references.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ee71d44e60a128e107436e1e0405b45280cb49c6
Author: Ludovic Courtès <address@hidden>
Date:   Fri Mar 15 17:43:45 2019 +0100

    build-system/glib-or-gtk: Support #:disallowed-references.
    
    * guix/build-system/glib-or-gtk.scm (glib-or-gtk-build): Add
     #:disallowed-references and honor it.
---
 guix/build-system/glib-or-gtk.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/guix/build-system/glib-or-gtk.scm 
b/guix/build-system/glib-or-gtk.scm
index fcd92f2..8de7dfb 100644
--- a/guix/build-system/glib-or-gtk.scm
+++ b/guix/build-system/glib-or-gtk.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2019 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2013 Cyril Roelandt <address@hidden>
 ;;; Copyright © 2014 Federico Beffa <address@hidden>
 ;;;
@@ -129,7 +129,8 @@
                             (system (%current-system))
                             (imported-modules 
%glib-or-gtk-build-system-modules)
                             (modules %default-modules)
-                            allowed-references)
+                            allowed-references
+                            disallowed-references)
   "Build SOURCE with INPUTS.  See GNU-BUILD for more details."
   (define canonicalize-reference
     (match-lambda
@@ -190,6 +191,10 @@
                                 (and allowed-references
                                      (map canonicalize-reference
                                           allowed-references))
+                                #:disallowed-references
+                                (and disallowed-references
+                                     (map canonicalize-reference
+                                          disallowed-references))
                                 #:guile-for-build guile-for-build))
 
 (define glib-or-gtk-build-system