steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove use of 'rot' in uuid.

db4
John Benediktsson 2008-12-20 19:32:16 -08:00
parent 2d08bba67f
commit 293cbf91e7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/uuid/uuid.factor
View File

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