(Som) Add VPSlashPrep + fix bug in insertAdv

2026-06-29 04:46:30 -06:00 · 2019-09-30 10:50:26 +02:00
parent 22503e0a7a
commit 4dba178d33
3 changed files with 14 additions and 9 deletions
@@ -121,10 +121,9 @@ lin
  AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
 -}
  -- : VP -> Prep -> VPSlash ;  -- live in (it)
-  -- NB. We need possibly a MissingArg kind of solution here too
-  -- VPSlashPrep vp prep = vp **
-  --   { c2 = case vp.c2 of { NoPrep => prep.prep ;
-  --                          x      => x }} ;
+  VPSlashPrep vp prep =
+    let adv = prepNP prep emptyNP
+     in insertAdv vp adv ;