From b9dd5c26955a4758fa2db2592273675eef143502 Mon Sep 17 00:00:00 2001
From: Kadzuya Okamoto <arow.okamoto@gmail.com>
Date: Sun, 30 Apr 2023 18:14:41 +0900
Subject: [PATCH] Fix bug that causes infinite loop

---
 src/Elm/Kernel/String.js | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Elm/Kernel/String.js b/src/Elm/Kernel/String.js
index 1a005e7f..a1f9a9ca 100644
--- a/src/Elm/Kernel/String.js
+++ b/src/Elm/Kernel/String.js
@@ -124,7 +124,7 @@ var _String_foldl = F3(function(func, state, string)
 var _String_foldr = F3(function(func, state, string)
 {
 	var i = string.length;
-	while (i--)
+	while (i-- > 0)
 	{
 		var char = string[i];
 		var word = string.charCodeAt(i);
@@ -190,7 +190,7 @@ function _String_toLower(str)
 var _String_any = F2(function(isGood, string)
 {
 	var i = string.length;
-	while (i--)
+	while (i-- > 0)
 	{
 		var char = string[i];
 		var word = string.charCodeAt(i);
@@ -210,7 +210,7 @@ var _String_any = F2(function(isGood, string)
 var _String_all = F2(function(isGood, string)
 {
 	var i = string.length;
-	while (i--)
+	while (i-- > 0)
 	{
 		var char = string[i];
 		var word = string.charCodeAt(i);