sequences: bound -> index-or-length

[factor.git] / basis / uuid / uuid.factor

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index 13b055a6c6036ca55cfb46e194127b5c74a6e5c2..44e1fc9d15e090bccba5ced058cdef17c1f7aa4d 100644 (file)
--- a/basis/uuid/uuid.factor
+++ b/basis/uuid/uuid.factor
@@ -64,7 +64,7 @@ PRIVATE>
 
 : uuid3 ( namespace name -- string )
     [ uuid-parse ] dip append
-    md5 checksum-bytes 16 bound head be>
+    md5 checksum-bytes 16 index-or-length head be>
     3 (version) uuid>string ;
 
 : uuid4 ( -- string )
@@ -73,7 +73,7 @@ PRIVATE>
 
 : uuid5 ( namespace name -- string )
     [ uuid-parse ] dip append
-    sha1 checksum-bytes 16 bound head be>
+    sha1 checksum-bytes 16 index-or-length head be>
     5 (version) uuid>string ;
 
 : uuid6 ( -- string )