me/guix
Archived
1
0
Fork 0
Code Activity

gnu: racket: Avoid use of (ice-9 exceptions).

Browse source 
Fixes <https://issues.guix.gnu.org/54546>.
Reported by Giovanni Biscuolo <g@xelera.eu>
and Michael Chirillo <michael.a.chirillo@gmail.com>.

* gnu/packages/racket.scm (racket): Rewrite in terms of SRFI-34/35
instead of (ice-9 exceptions).
This commit is contained in:
Ludovic Courtès 2022-06-13 11:49:15 +02:00
parent 2a2856d5cc
commit 8918ce6d16
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/racket.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013-2016, 2018, 2020-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2021, 2022 Philip McGrath <philip@philipmcgrath.com> ;;; Copyright © 2021, 2022 Philip McGrath <philip@philipmcgrath.com>
@ -28,10 +28,12 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix build-system copy) #:use-module (guix build-system copy)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix diagnostics)
#:use-module (guix i18n)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 exceptions)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
@ -925,13 +927,10 @@ DrRacket IDE, are not included.")
((this-package-input name) ((this-package-input name)
=> (cut file-append <> "/lib")) => (cut file-append <> "/lib"))
(else (else
(raise-exception (raise
(make-exception (formatted-message
(make-assertion-failure) (G_ "missing input '~a' to the 'racket' package")
(make-exception-with-message name)))))
"missing input to the 'racket' package")
(make-exception-with-irritants
(list name)))))))
'("cairo" '("cairo"
"fontconfig-minimal" ;; aka fontconfig "fontconfig-minimal" ;; aka fontconfig
"glib" "glib"