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

[factor.git] / extra / youtube / youtube.factor

diff --git a/extra/youtube/youtube.factor b/extra/youtube/youtube.factor
index fde9b05fd6ec3f627cf123a0bc5c06bb0a2483e0..32c69988631d78a3d8d431c7e165f11d00c996f2 100644 (file)
--- a/extra/youtube/youtube.factor
+++ b/extra/youtube/youtube.factor
@@ -60,8 +60,8 @@ CONSTANT: video-info-url URL" http://www.youtube.com/get_video_info"
     [ "url" of ] [ "sig" of ] bi "&signature=" glue ;
 
 : sanitize ( title -- title' )
-    [ 0 31 between? not ] filter
-    [ "\"#$%'*,./:;<>?^|~\\" member? not ] filter
+    [ 0 31 between? ] reject
+    [ "\"#$%'*,./:;<>?^|~\\" member? ] reject
     200 short head ;
 
 : download-video ( video-id -- )