insertObject in AdVP in tutorial/syntax

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} ;