sequences: bound -> index-or-length

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

diff --git a/extra/youtube/youtube.factor b/extra/youtube/youtube.factor
index 4d44b7a2fc8844c197fd50bb595a2435def5575c..5c0e3b45d439d19ce2852e841f2284a64d59bd8c 100644 (file)
--- a/extra/youtube/youtube.factor
+++ b/extra/youtube/youtube.factor
@@ -61,7 +61,7 @@ CONSTANT: video-info-url URL" http://www.youtube.com/get_video_info"
 : sanitize ( title -- title' )
     [ 0 31 between? ] reject
     [ "\"#$%'*,./:;<>?^|~\\" member? ] reject
-    200 bound head ;
+    200 index-or-length head ;
 
 : downloadable? ( video-info -- ? )
     "use_cipher_signature" of "False" = ;