[german] Don't remove -em if preceded by -syst

Previously we would overstem words ending -system. This change means we now conflate e.g. "system" and "systemen". See #161
snowballstem · Nov 9, 2023 · 867c4ec · 867c4ec
1 parent 66db104
commit 867c4ec
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/algorithms/german.sbl b/algorithms/german.sbl
@@ -84,7 +84,11 @@ backwardmode (
     define standard_suffix as (
         do (
             [substring] R1 among(
-                'em' 'ern' 'er'
+                'em'
+                (   not 'syst'
+                    delete
+                )
+                'ern' 'er'
                 (   delete
                 )
                 'e' 'en' 'es'