aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJosselin Poiret <dev@jpoiret.xyz>2023-07-10 11:09:32 +0200
committerJosselin Poiret <dev@jpoiret.xyz>2023-07-13 19:00:14 +0200
commitd17879cd0dec60ea7490632910257890f207d6cb (patch)
tree101fefae00195801ad7272c59aa1e1416a6a5723
parentb4fe82bd8af735000d0f2165a23cfb695c181f6f (diff)
downloadguix-d17879cd0dec60ea7490632910257890f207d6cb.tar
guix-d17879cd0dec60ea7490632910257890f207d6cb.tar.gz
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.scm12
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