ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05: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
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 @@ (define uuid=?
(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))))