futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki 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
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gnu/system/uuid.scm
View File

@ -298,5 +298,5 @@ corresponding bytevector; otherwise return #f."
(bytevector=? (uuid-bytevector a) b)) (bytevector=? (uuid-bytevector a) b))
(((? uuid? a) (? uuid? b)) (((? uuid? a) (? uuid? b))
(bytevector=? (uuid-bytevector a) (uuid-bytevector b))) (bytevector=? (uuid-bytevector a) (uuid-bytevector b)))
((a b) (((or (? uuid? a) (? bytevector? a)) (or (? uuid? b) (? bytevector? b)))
(uuid=? b a)))) (uuid=? b a))))