diff options
author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-07-23 10:11:29 +0200 |
---|---|---|
committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-07-23 10:11:29 +0200 |
commit | 4c204d01d57ac7da11a5772d5d4e3254d1c2408f (patch) | |
tree | c7e5cb013abc742734acd9613674df4ebddfdeef /guix/platform.scm | |
parent | 82bdb77082fa4e100761f70086b745dfb280c3ac (diff) | |
parent | 445a0359083388b5ee686e6e855f94a3aac5f79c (diff) | |
download | guix-4c204d01d57ac7da11a5772d5d4e3254d1c2408f.tar.gz |
Merge branch 'master' into gnome-team gnome-team
Diffstat (limited to 'guix/platform.scm')
-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 |