diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2020-06-18 23:07:43 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2020-06-18 23:24:37 -0400 |
| commit | 04a4af6dd4fbfcfc564eac5eafe647b192ba3a8f (patch) | |
| tree | 43dcbcb42b55892213b025e2c68bab88d2ed377c /gnu/system | |
| parent | 0dd04b9986dd834782c988035569089785a6987d (diff) | |
| download | guix-patches-04a4af6dd4fbfcfc564eac5eafe647b192ba3a8f.tar guix-patches-04a4af6dd4fbfcfc564eac5eafe647b192ba3a8f.tar.gz | |
uuid: Prevent a loop on invalid arguments.
* gnu/system/uuid.scm (uuid=?): Use type predicates in the fallback case to
prevent looping on invalid arguments.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/uuid.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm index 225959e2b7..bc3af69610 100644 --- a/gnu/system/uuid.scm +++ b/gnu/system/uuid.scm @@ -298,5 +298,5 @@ corresponding bytevector; otherwise return #f." (bytevector=? (uuid-bytevector a) b)) (((? uuid? a) (? uuid? b)) (bytevector=? (uuid-bytevector a) (uuid-bytevector b))) - ((a b) + (((or (? uuid? a) (? bytevector? a)) (or (? uuid? b) (? bytevector? b))) (uuid=? b a)))) |