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.master
parent
0dd04b9986
commit
04a4af6dd4
|
@ -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))))
|
||||||
|
|
Reference in New Issue