diff options
| -rw-r--r-- | examples/phrasebook/WordsChi.gf | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/phrasebook/WordsChi.gf b/examples/phrasebook/WordsChi.gf index 130d19b2b..2cdb531c0 100644 --- a/examples/phrasebook/WordsChi.gf +++ b/examples/phrasebook/WordsChi.gf @@ -150,9 +150,9 @@ AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; -- miscellaneous -QWhatName p = lin QS {s = p.name.s ++ R.word "贵姓"} ; --- -QWhatAge p = lin QS {s = p.name.s ++ (R.word "几岁" | R.word "多大")} ; --- -HowMuchCost item = lin QS {s = item.s ++ R.word "是多少呢"} ; +QWhatName p = lin QS {s = \\_ => p.name.s ++ R.word "贵姓"} ; --- +QWhatAge p = lin QS {s = \\_ => p.name.s ++ (R.word "几岁" | R.word "多大")} ; --- +HowMuchCost item = lin QS {s = \\_ => item.s ++ R.word "是多少呢"} ; ItCost item price = mkCl item (mkV2 "成本") price ; PropOpen p = mkCl p.name (mkA "开放" ) ; @@ -206,9 +206,9 @@ SuperlPlace sup p = placeNP sup p ; -- transports -HowFar place = lin QS {s = place.name.s ++ R.word "有多远"} ; +HowFar place = lin QS {s = \\_ => place.name.s ++ R.word "有多远"} ; -HowFarFrom x y = lin QS {s = "从" ++ x.name.s ++ "到" ++ y.name.s ++ R.word "有多远"} ; ---- +HowFarFrom x y = lin QS {s = \\_ => "从" ++ x.name.s ++ "到" ++ y.name.s ++ R.word "有多远"} ; ---- -- HowFarFromBy x y t = -- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) |