From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Jul 2022 17:47:48 +0000 (-0500)
Subject: strings.parser: short -> bound
X-Git-Tag: 0.99~1287
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5c0fc71a8a6f0f6787df656aff6db8fe4307c556

strings.parser: short -> bound
---

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 2b8216dd55..8cd30f37f4 100644
--- 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* ;