summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/system/uuid.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm
index 225959e2b7..bc3af69610 100644
--- a/gnu/system/uuid.scm
+++ b/gnu/system/uuid.scm
@@ -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))))