strings.parser: short -> bound

[factor.git] / core / strings / parser / parser.factor

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 2b8216dd556ceb86f236e8855c8cea3ef69120e0..8cd30f37f4305251657f151f8113102bd4ead268 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -36,7 +36,7 @@ name>char-hook [
     2 cut-slice [ hex> ] dip ;
 
 : oct-escape ( str -- ch/f str' )
-    dup 3 short head-slice [
+    dup 3 bound head-slice [
         [ CHAR: 0 CHAR: 7 between? not ] find drop
     ] keep '[ _ length ] unless* [ f ] when-zero
     [ cut-slice [ oct> ] dip ] [ f swap ] if* ;