amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: platform: Use srfi-34's raise instead of raise-exception.

Browse source 
* guix/platform.scm (lookup-platform-by-system)
(lookup-platform-by-target)
(lookup-platform-by-target-or-system): Use srfi-34's raise instead of
raise-exception.
This commit is contained in:
Josselin Poiret 2023-07-10 11:09:32 +02:00
parent b4fe82bd8a
commit d17879cd0d
No known key found for this signature in database
GPG key ID: 505E40B916171A8A
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix/platform.scm
View file

@ -120,8 +120,8 @@ exception."
(let ((s (platform-system platform))) (let ((s (platform-system platform)))
(and (string? s) (string=? s system)))) (and (string? s) (string=? s system))))
(platforms)) (platforms))
(raise-exception (condition (&platform-not-found-error (raise (condition (&platform-not-found-error
(target-or-system system)))))) (target-or-system system))))))
(define (lookup-platform-by-target target) (define (lookup-platform-by-target target)
"Return the platform corresponding to the given TARGET. Raise "Return the platform corresponding to the given TARGET. Raise
@ -130,16 +130,16 @@ exception."
(let ((t (platform-target platform))) (let ((t (platform-target platform)))
(and (string? t) (string=? t target)))) (and (string? t) (string=? t target))))
(platforms)) (platforms))
(raise-exception (condition (&platform-not-found-error (raise (condition (&platform-not-found-error
(target-or-system target)))))) (target-or-system target))))))
(define (lookup-platform-by-target-or-system target-or-system) (define (lookup-platform-by-target-or-system target-or-system)
"Return the platform corresponding to the given TARGET or SYSTEM. Raise "Return the platform corresponding to the given TARGET or SYSTEM. Raise
&PLATFORM-NOT-FOUND-ERROR when no platform could be found." &PLATFORM-NOT-FOUND-ERROR when no platform could be found."
(or (false-if-platform-not-found (lookup-platform-by-target target-or-system)) (or (false-if-platform-not-found (lookup-platform-by-target target-or-system))
(false-if-platform-not-found (lookup-platform-by-system target-or-system)) (false-if-platform-not-found (lookup-platform-by-system target-or-system))
(raise-exception (condition (&platform-not-found-error (raise (condition (&platform-not-found-error
(target-or-system target-or-system)))))) (target-or-system target-or-system))))))
(define (platform-system->target system) (define (platform-system->target system)
"Return the target matching the given SYSTEM if it exists or false "Return the target matching the given SYSTEM if it exists or false