experimenting with English VP

2005-11-22 22:00:47 +00:00
parent 712272f0e4
commit e79321be37
30 changed files with 255 additions and 8875 deletions
--- a/src/GF/CF/CanonToCF.hs
+++ b/src/GF/CF/CanonToCF.hs
@@ -177,6 +177,7 @@ term2CFItems m t = errIn "forming cf items" $ case t of

    headProj r ls = case r of
      P r0 l0 -> headProj r0 (l0:ls)
+      S r0 _  -> headProj r0 ls
      _ -> (r,ls)
    cIQ c = if isPredefCat c then CIQ cPredefAbs c else CIQ m c