build-self: Explain why we keep using deprecated bindings.

* build-aux/build-self.scm (build): Add comment regarding the deprecated
names.
This commit is contained in:
Ludovic Courtès 2019-04-23 16:39:00 +02:00
parent 86b8869fff
commit 04fa9c62d9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 0 deletions

View File

@ -399,6 +399,9 @@ files."
(mlet %store-monad ((build (build-program source version guile-version (mlet %store-monad ((build (build-program source version guile-version
#:pull-version pull-version)) #:pull-version pull-version))
(system (if system (return system) (current-system))) (system (if system (return system) (current-system)))
;; Note: Use the deprecated names here because the
;; caller might be Guix <= 0.16.0.
(port ((store-lift nix-server-socket))) (port ((store-lift nix-server-socket)))
(major ((store-lift nix-server-major-version))) (major ((store-lift nix-server-major-version)))
(minor ((store-lift nix-server-minor-version)))) (minor ((store-lift nix-server-minor-version))))