fixed the construction for English indirect questions of name in Phrasebook

This commit is contained in:
aarne
2013-01-23 09:29:39 +00:00
parent 3d5d424fef
commit e7db50b9bd
2 changed files with 4 additions and 3 deletions

View File

@@ -150,7 +150,8 @@ concrete WordsEng of Words = SentencesEng **
-- miscellaneous
QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ;
QWhatName p = mkQS (mkQCl (mkIComp whatSg_IP) (nameOf p)) ;
-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ;
QWhatAge p = mkQS (mkQCl (ICompAP (mkAP L.old_A)) p.name) ;
HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item IrregEng.cost_V)) ;
ItCost item price = mkCl item (mkV2 IrregEng.cost_V) price ;