From 293cbf91e7bd7fea995007a334916e23f4964504 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 20 Dec 2008 19:32:16 -0800
Subject: [PATCH] Remove use of 'rot' in uuid.

---
 basis/uuid/uuid.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index d666ef3ae7..8b491d7cf2 100644
--- a/basis/uuid/uuid.factor
+++ b/basis/uuid/uuid.factor
@@ -51,10 +51,10 @@ IN: uuid
     [ CHAR: - = not ] filter 16 base> ;
 
 : uuid>byte-array ( n -- byte-array ) 
-    16 <byte-array> swap 15 -1 [a,b) [ 
-        rot [ dup HEX: ff bitand ] 2dip 
-        [ set-nth ] keep swap -8 shift 
-    ] each drop ;
+    16 <byte-array> 15 -1 [a,b) [ 
+        [ dup HEX: ff bitand ] 2dip swap
+        [ set-nth -8 shift ] keep 
+    ] each nip ;
 
 : byte-array>uuid ( byte-array -- n )
      0 swap [ [ 8 shift ] dip + ] each ;