accepting + patterns in pre expressions

1 files changed, 4 insertions, 6 deletions

diff --git a/next-lib/src/english/ResEng.gf b/next-lib/src/english/ResEng.gf
index 46c9e9580..0be501e7d 100644
--- a/next-lib/src/english/ResEng.gf
+++ b/next-lib/src/english/ResEng.gf
@@ -175,13 +175,11 @@ resource ResEng = ParamX ** open Prelude in {
 -- "o" ("one-sided"), vocalic "u" ("umbrella").
 
     artIndef = pre {
-      "a" ; 
-      "an" / strs {"a" ; "e" ; "i" ; "o" ; "A" ; "E" ; "I" ; "O" }
+      "eu" | "Eu" | "uni" | "up" => "a" ;
+      "un" => "an" ; 
+      "a" | "e" | "i" | "o" | "A" | "E" | "I" | "O" => "an" ;
+      _ => "a"
       } ;
----    artIndef = pre {
----      "a" | "e" | "i" | "o" | "A" | "E" | "I" | "O" => "an" ;
----      _ => "a"
----      } ;
 
     artDef = "the" ;