From 4b233624e2151f25660aca342e0813becec2e791 Mon Sep 17 00:00:00 2001
From: Olly Betts <olly@survex.com>
Date: Wed, 9 Oct 2024 13:22:04 +1300
Subject: [PATCH] czech: Use R1 instead of RV

There seems no benefit from having a separate region we can remove
possessive suffixes in.

See #151
---
 algorithms/czech.sbl | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/algorithms/czech.sbl b/algorithms/czech.sbl
index c152d01c..b3623ecf 100644
--- a/algorithms/czech.sbl
+++ b/algorithms/czech.sbl
@@ -1,5 +1,5 @@
 routines (
-  RV // R1
+  R1
   palatalise_e
   palatalise_ecaron
   palatalise_i
@@ -11,7 +11,7 @@ routines (
 
 externals ( stem )
 
-integers ( pV p1 x )
+integers ( p1 x )
 
 groupings ( v v_or_syllabic_c )
 
@@ -46,15 +46,9 @@ define v_or_syllabic_c v + 'lr'
 
 define mark_regions as (
 
-    $pV = limit
     $p1 = limit
     test(hop 3 setmark x)
 
-    do (
-        gopast non-v setmark pV
-        try($pV < x  $pV = x)  // at least 3
-    )
-
     do (
         // A syllabic consonant must occur between two consonants, or be
         // preceded by a consonant and at the end of the word.
@@ -76,8 +70,7 @@ define mark_regions as (
 
 backwardmode (
 
-  define RV as $pV <= cursor
-  // define R1 as $p1 <= cursor
+  define R1 as $p1 <= cursor
 
   define palatalise_e as (
     [substring] among (
@@ -110,7 +103,7 @@ backwardmode (
   )
 
   define possessive_suffix as (
-    [substring] RV among (
+    [substring] R1 among (
       'ov' '{u*}v'
       (delete)
       'in'