mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
guix: platform: Use srfi-34's raise instead of raise-exception.
* 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:
parent
b4fe82bd8a
commit
d17879cd0d
1 changed files with 6 additions and 6 deletions
|
@ -120,8 +120,8 @@ (define (lookup-platform-by-system system)
|
|||
(let ((s (platform-system platform)))
|
||||
(and (string? s) (string=? s system))))
|
||||
(platforms))
|
||||
(raise-exception (condition (&platform-not-found-error
|
||||
(target-or-system system))))))
|
||||
(raise (condition (&platform-not-found-error
|
||||
(target-or-system system))))))
|
||||
|
||||
(define (lookup-platform-by-target target)
|
||||
"Return the platform corresponding to the given TARGET. Raise
|
||||
|
@ -130,16 +130,16 @@ (define (lookup-platform-by-target target)
|
|||
(let ((t (platform-target platform)))
|
||||
(and (string? t) (string=? t target))))
|
||||
(platforms))
|
||||
(raise-exception (condition (&platform-not-found-error
|
||||
(target-or-system target))))))
|
||||
(raise (condition (&platform-not-found-error
|
||||
(target-or-system target))))))
|
||||
|
||||
(define (lookup-platform-by-target-or-system target-or-system)
|
||||
"Return the platform corresponding to the given TARGET or SYSTEM. Raise
|
||||
&PLATFORM-NOT-FOUND-ERROR when no platform could be found."
|
||||
(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))
|
||||
(raise-exception (condition (&platform-not-found-error
|
||||
(target-or-system target-or-system))))))
|
||||
(raise (condition (&platform-not-found-error
|
||||
(target-or-system target-or-system))))))
|
||||
|
||||
(define (platform-system->target system)
|
||||
"Return the target matching the given SYSTEM if it exists or false
|
||||
|
|
Loading…
Reference in a new issue