accepting + patterns in pre expressions

This commit is contained in:
aarne
2009-06-20 08:39:30 +00:00
parent 19a1cd392d
commit ddd6902e7d
2 changed files with 8 additions and 6 deletions

View File

@@ -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" ;