factor: trim using lists

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

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index 818219192e82379709d649681602bc0a5bfed16f..00758e0b8baf09a38ec23e6df4ec0752939dad71 100644 (file)
--- a/basis/uuid/uuid.factor
+++ b/basis/uuid/uuid.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2008 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
-USING: byte-arrays calendar checksums checksums.md5
-checksums.sha endian kernel math math.parser ranges
-random sequences strings system unicode ;
+USING: calendar checksums checksums.md5 checksums.sha endian
+kernel math math.parser random sequences ;
 IN: uuid
 
 <PRIVATE
@@ -48,7 +47,7 @@ IN: uuid
     [ CHAR: - 8 ] dip insert-nth ;
 
 : string>uuid ( string -- n )
-    [ CHAR: - = ] reject hex> ;
+    CHAR: - swap remove hex> ;
 
 PRIVATE>