diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2023-07-10 11:09:32 +0200 |
|---|---|---|
| committer | Josselin Poiret <dev@jpoiret.xyz> | 2023-07-13 19:00:14 +0200 |
| commit | d17879cd0dec60ea7490632910257890f207d6cb (patch) | |
| tree | 101fefae00195801ad7272c59aa1e1416a6a5723 | |
| parent | b4fe82bd8af735000d0f2165a23cfb695c181f6f (diff) | |
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.
| -rw-r--r-- | guix/platform.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/guix/platform.scm b/guix/platform.scm index a2d95ab507..55917ca308 100644 --- a/guix/platform.scm +++ b/guix/platform.scm @@ -120,8 +120,8 @@ exception." (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 @@ exception." (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 |