From ce6c032c6ff8da9b8016cc3f042787c2e3606d14 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 22 Nov 2005 22:00:47 +0000 Subject: experimenting with English VP --- src/GF/CF/CanonToCF.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/CF') diff --git a/src/GF/CF/CanonToCF.hs b/src/GF/CF/CanonToCF.hs index 44cec0fbb..6ce443351 100644 --- 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 -- cgit v1.2.3