diff options
| author | Alex Kost <alezost@gmail.com> | 2017-05-08 21:10:06 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2017-05-08 22:18:20 +0300 |
| commit | 3b6c95c8d652bf27d1d4f408ef45abb683cf7349 (patch) | |
| tree | 3481412e80414eda6e17c6a0bdb14a943005918d | |
| parent | Update version to 0.3.1 (diff) | |
| download | guix-wigust-3b6c95c8d652bf27d1d4f408ef45abb683cf7349.tar.gz | |
scheme/system-generations: Use 'read-boot-parameters-file'
Reported by George Clemmer.
Follow the changes introduced by
<http://git.savannah.gnu.org/cgit/guix.git/commit/?id=9530e73b496fefe65dcb936825b6beda79f7fdf2>
* scheme/emacs-guix/system-generations.scm
(system-generation-boot-parameters): Use 'read-boot-parameters-file'
instead of 'read-boot-parameters' which is not exported anymore.
| -rw-r--r-- | scheme/emacs-guix/system-generations.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scheme/emacs-guix/system-generations.scm b/scheme/emacs-guix/system-generations.scm index 6917bd4..3504b49 100644 --- a/scheme/emacs-guix/system-generations.scm +++ b/scheme/emacs-guix/system-generations.scm @@ -35,9 +35,8 @@ (define system-generation-boot-parameters (mlambda (profile generation) "Return boot parameters for PROFILE's system GENERATION." - (let* ((gen-file (generation-file-name profile generation)) - (param-file (string-append gen-file "/parameters"))) - (call-with-input-file param-file read-boot-parameters)))) + (read-boot-parameters-file + (generation-file-name profile generation)))) (define (system-generation-param-alist profile) "Return an alist of system generation parameters and procedures for |