me
/
guix
Archived
1
0
Fork 0
Code

pack: Remove use of GOOPS in 'deb' backend. 

* guix/scripts/pack.scm (debian-archive)[build]: Remove use of (oop goops).
Introduce 'keyword-ref' and use it instead of 'get-keyword'.
master
Ludovic Courtès 2022-11-19 17:15:19 +01:00
parent 50c17ddd9e
commit a644c3a375
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/scripts/pack.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2017-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2018 Chris Marusich <cmmarusich@gmail.com>
@ -702,7 +702,6 @@ Valid compressors are: ~a~%") compressor-name %valid-compressors)))
(guix build utils)
(guix profiles)
(ice-9 match)
((oop goops) #:select (get-keyword))
(srfi srfi-1))
(define machine-type
@ -763,15 +762,20 @@ Valid compressors are: ~a~%") compressor-name %valid-compressors)))
(copy-file #+data-tarball data-tarball-file-name)
(define (keyword-ref lst keyword)
(match (memq keyword lst)
((_ value . _) value)
(#f #f)))
;; Generate the control archive.
(define control-file
(get-keyword #:control-file '#$extra-options))
(keyword-ref '#$extra-options #:control-file))
(define postinst-file
(get-keyword #:postinst-file '#$extra-options))
(keyword-ref '#$extra-options #:postinst-file))
(define triggers-file
(get-keyword #:triggers-file '#$extra-options))
(keyword-ref '#$extra-options #:triggers-file))
(define control-tarball-file-name
(string-append "control.tar"