amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
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))))