06/08: derivations: Officially deprecate 'build-expression->derivation'.

[guix-commits]

civodul pushed a commit to branch core-updates-frozen
in repository guix.

commit 7d043abfdb4b915f57cf14c5d6f7dcbceb63ea25
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Nov 18 22:47:55 2021 +0100

    derivations: Officially deprecate 'build-expression->derivation'.
    
    This procedure had been semi-deprecated since 2014, starting with commit
    21b679f6944f4e1f09f949322f5242b761dc22a7!
    
    * guix/derivations.scm (build-expression->derivation): Define using
    'define-deprecated'.
---
 guix/derivations.scm | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/guix/derivations.scm b/guix/derivations.scm
index 33f4dc5..f77ea17 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic 
Courtès <ludo@gnu.org>
+;;; Copyright © 2012-2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -1243,20 +1243,21 @@ MODULES are compiled."
         (hash-set! %module-cache key result)
         result)))
 
-(define* (build-expression->derivation store name exp ;deprecated
-                                       #:key
-                                       (system (%current-system))
-                                       (inputs '())
-                                       (outputs '("out"))
-                                       hash hash-algo recursive?
-                                       (env-vars '())
-                                       (modules '())
-                                       guile-for-build
-                                       references-graphs
-                                       allowed-references
-                                       disallowed-references
-                                       local-build? (substitutable? #t)
-                                       (properties '()))
+(define-deprecated (build-expression->derivation store name exp
+                                                 #:key
+                                                 (system (%current-system))
+                                                 (inputs '())
+                                                 (outputs '("out"))
+                                                 hash hash-algo recursive?
+                                                 (env-vars '())
+                                                 (modules '())
+                                                 guile-for-build
+                                                 references-graphs
+                                                 allowed-references
+                                                 disallowed-references
+                                                 local-build? (substitutable? 
#t)
+                                                 (properties '()))
+  gexp->derivation                                ;unbound, but that's okay
   "Return a derivation that executes Scheme expression EXP as a builder
 for derivation NAME.  INPUTS must be a list of (NAME DRV-PATH SUB-DRV)
 tuples; when SUB-DRV is omitted, \"out\" is assumed.  MODULES is a list