removed "one" from Lex; updated README

This commit is contained in:
aarne
2006-01-13 22:48:37 +00:00
parent 1a262ce1f8
commit f48c35dbe2
5 changed files with 17 additions and 18 deletions

View File

@@ -38,7 +38,6 @@ concrete LexEng of Lex = CatEng ** open ResEng, Prelude in {
whichSg_IDet = {s = "which" ; n = Sg} ;
whichPl_IDet = {s = "which" ; n = Pl} ;
one_Numeral = {s = table {NCard => "one" ; NOrd => "first"} ; n = Sg} ;
forty_Numeral = {s = table {NCard => "forty" ; NOrd => "fortieth"} ; n = Pl} ;
in_Prep = {s = "in"} ;

View File

@@ -19,6 +19,8 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
--- This rule destroys parsing...
---- AdVVP adv vp = insertAdV adv.s vp ;
ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ;