From 5c0fc71a8a6f0f6787df656aff6db8fe4307c556 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Jul 2022 12:47:48 -0500
Subject: [PATCH] strings.parser: short -> bound

---
 core/strings/parser/parser.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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* ;
-- 
2.34.1