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'.

1 files changed, 16 insertions, 15 deletions

diff --git a/guix/derivations.scm b/guix/derivations.scm
index 33f4dc5d9d..f77ea179f4 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