diff options
Diffstat (limited to 'examples/tutorial/syntax/GrammarEng.gf')
| -rw-r--r-- | examples/tutorial/syntax/GrammarEng.gf | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/examples/tutorial/syntax/GrammarEng.gf b/examples/tutorial/syntax/GrammarEng.gf index 217dda5af..4b4c53a73 100644 --- a/examples/tutorial/syntax/GrammarEng.gf +++ b/examples/tutorial/syntax/GrammarEng.gf @@ -61,15 +61,9 @@ concrete GrammarEng of Grammar = open Prelude, MorphoEng in { ModCN ap cn = {s = \\n => ap.s ++ cn.s ! n} ; - AdVP adv vp = { - s = \\o,b,n => - let vps = vp.s ! o ! b ! n in { - fin = vps.fin ; - inf = vps.inf ++ adv.s - } - } ; + AdVP adv = insertObject adv.s ; - AdAP ada ap = {s = ada.s ++ ap.s} ; + AdAP ada ap = {s = ada.s ++ ap.s} ; IDetCN det cn = {s = det.s ++ cn.s ! det.n ; n = det.n} ; |