From d17879cd0dec60ea7490632910257890f207d6cb Mon Sep 17 00:00:00 2001 From: Josselin Poiret Date: Mon, 10 Jul 2023 11:09:32 +0200 Subject: 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. --- guix/platform.scm | 12 ++++++------ 1 file 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 -- cgit v1.2.3