use reject instead of [ ... not ] filter.

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

diff --git a/basis/uuid/uuid.factor b/basis/uuid/uuid.factor
index 32d3cb5d7959f2beafb6a22da0ba128ef1f1f2d4..35338bfd2214ac862c771ef5230f27ae4b1261f0 100644 (file)
--- a/basis/uuid/uuid.factor
+++ b/basis/uuid/uuid.factor
@@ -48,7 +48,7 @@ IN: uuid
     [ CHAR: - 8 ] dip insert-nth ;
 
 : string>uuid ( string -- n )
-    [ CHAR: - = not ] filter hex> ;
+    [ CHAR: - = ] reject hex> ;
 
 PRIVATE>