factor: alien.c-types:short -> cramp

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

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index 2f2f41dac065a236da327a6b23d078fd81488e25..d20e61f265775310990be5a40dff0ded43f80628 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 short head be>
+    md5 checksum-bytes 16 cramp 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 short head be>
+    sha1 checksum-bytes 16 cramp head be>
     5 (version) uuid>string ;
 
 : uuid6 ( -- string )