From 48c755597598fc4656603a90997ebe484488a8f9 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 20 Jun 2009 08:39:30 +0000 Subject: accepting + patterns in pre expressions --- next-lib/src/english/ResEng.gf | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'next-lib/src') 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" ; -- cgit v1.2.3