factor: alien.c-types:short -> cramp

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

diff --git a/extra/youtube/youtube.factor b/extra/youtube/youtube.factor
index 5c6e7e9c3a9c89661cf3594c1a61e723ea3c941e..a043c6c199c668b7bf7d8cc9d24b863f2e697909 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 short head ;
+    200 cramp head ;
 
 : downloadable? ( video-info -- ? )
     "use_cipher_signature" of "False" = ;