tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-06 01:05:54 +02:00
Code Activity

uuid: Prevent a loop on invalid arguments.

Browse Source 
* gnu/system/uuid.scm (uuid=?): Use type predicates in the fallback case to
prevent looping on invalid arguments.
This commit is contained in:
Maxim Cournoyer
2020-06-18 23:07:43 -04:00
parent 0dd04b9986
commit 04a4af6dd4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/system/uuid.scm
+1 -1
View File
@@ -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))))