From 9daa46d8ec2799641edd2cb94ee20db1a710edbc Mon Sep 17 00:00:00 2001
From: Olly Betts <olly@survex.com>
Date: Wed, 8 Jan 2025 12:53:09 +1300
Subject: [PATCH] =?UTF-8?q?greek:=20Fix=20"faulty=20slice=20operation"=20f?=
 =?UTF-8?q?or=20input=20=CE=B9=CF=83=CE=B1=CE=B9=CF=83=CE=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

The fix changes ισα to stem to ισ instead of the empty string, which
seems better (and to be what the second paper actually says to do if
read carefully).

Fixes #204
---
 algorithms/greek.sbl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/algorithms/greek.sbl b/algorithms/greek.sbl
index 8b97e43b..660c5d85 100644
--- a/algorithms/greek.sbl
+++ b/algorithms/greek.sbl
@@ -210,11 +210,11 @@ backwardmode (
   )
 
   define steps3 as (
+    (['{y}{s}{a}'] atlimit <- '{y}{s}') or
     [substring] among (
       '{y}{s}{a}' '{y}{s}{e}{s}' '{y}{s}{e}' '{y}{s}{a}{m}{e}' '{y}{s}{a}{t}{e}' '{y}{s}{a}{n}' '{y}{s}{a}{n}{e}' (
         delete
         unset test1
-        ('{y}{s}{a}' atlimit <- '{y}{s}') or
         ([] substring atlimit among (
           '{a}{n}{a}{m}{p}{a}' '{a}{th}{r}{o}' '{e}{m}{p}{a}' '{e}{s}{e}' '{e}{s}{oo}{k}{l}{e}' '{e}{p}{a}' '{x}{a}{n}{a}{p}{a}' '{e}{p}{e}' '{p}{e}{r}{y}{p}{a}'
           '{s}{u}{n}{a}{th}{r}{o}' '{d}{a}{n}{e}' '{k}{l}{e}' '{ch}{a}{r}{t}{o}{p}{a}' '{e}{x}{a}{r}{ch}{a}' '{m}{e}{t}{e}{p}{e}' '{a}{p}{o}{k}{l}{e}'