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

Cleanup uuid a bit more, thanks Slava!

db4
John Benediktsson 2008-12-22 06:42:08 -08:00
parent 87c19e1219
commit 001dc3b251
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/uuid/uuid.factor
View File

@ -52,13 +52,10 @@ IN: uuid
: string>uuid ( string -- n ) : string>uuid ( string -- n )
[ CHAR: - = not ] filter 16 base> ; [ CHAR: - = not ] filter 16 base> ;
: uuid>byte-array ( n -- byte-array )
16 >be ;
PRIVATE> PRIVATE>
: uuid-parse ( string -- byte-array ) : uuid-parse ( string -- byte-array )
string>uuid uuid>byte-array ; string>uuid 16 >be ;
: uuid-unparse ( byte-array -- string ) : uuid-unparse ( byte-array -- string )
be> uuid>string ; be> uuid>string ;