gnu: s7: Don't set #:tests? to #:true.

* gnu/packages/lisp.scm (s7)[arguments]: Rewrite to strip the #:tests?
argument from the inherited package.
This commit is contained in:
Efraim Flashner 2023-07-09 10:36:49 +03:00
parent bc702a07c5
commit 3ff615263c
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -6,7 +6,7 @@
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is> ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca> ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017-2019, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017-2019, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 20192022 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 20192022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
@ -1315,7 +1315,7 @@ (define (wrap-carp-program program)
(dirname (dirname
(search-input-file (search-input-file
inputs "include/stdlib.h")))))) inputs "include/stdlib.h"))))))
(for-each wrap-carp-program (for-each wrap-carp-program
(list "carp" (list "carp"
"carp-header-parse"))))))) "carp-header-parse")))))))
@ -1587,8 +1587,10 @@ (define-public s7
(inherit s7-bootstrap) (inherit s7-bootstrap)
(name "s7") (name "s7")
(arguments (arguments
(substitute-keyword-arguments (package-arguments s7-bootstrap) (substitute-keyword-arguments
((#:tests? _) #t) (strip-keyword-arguments
'(#:tests?)
(package-arguments s7-bootstrap))
((#:phases phases) ((#:phases phases)
#~(modify-phases #$phases #~(modify-phases #$phases
(add-after 'unpack 'patch (add-after 'unpack 'patch