sequences: bound -> index-or-length

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

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 8cd30f37f4305251657f151f8113102bd4ead268..bff33f24298e41399267fca112eaff63282f2af3 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 bound head-slice [
+    dup 3 index-or-length head-slice [
         [ CHAR: 0 CHAR: 7 between? not ] find drop
     ] keep '[ _ length ] unless* [ f ] when-zero
     [ cut-slice [ oct> ] dip ] [ f swap ] if* ;