core: cramp -> bound (was short)

[factor.git] / extra / id3 / id3.factor

diff --git a/extra/id3/id3.factor b/extra/id3/id3.factor
index 09f10795abc184a1e1183265b96add071f1e6be9..2e81717d3c6e71b880f19be5e90fda540d9d79dc 100644 (file)
--- a/extra/id3/id3.factor
+++ b/extra/id3/id3.factor
@@ -116,7 +116,7 @@ CONSTANT: id3v1+-length 227
     [ 10 over size>> 10 + ] dip <slice> filter-text-data ;
 
 : decode-text ( string -- string' )
-    dup 2 cramp head
+    dup 2 bound head
     { { 0xff 0xfe } { 0xfe 0xff } } member?
     utf16 ascii ? decode ;