From 60d7d169061d98ec3747c111b9322297c63b2646 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 20 Jan 2006 10:54:38 +0000
Subject: [PATCH] started romance predication; some restructuring of modules;
 CheckGrammar value table bug fix

---
 src/GF/Compile/CheckGrammar.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs
index 0684d82f2..1480e4ddb 100644
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -411,6 +411,9 @@ inferLType gr trm = case trm of
        else do 
          (arg,val) <- checks $ map (inferCase Nothing) pts'
          check trm (Table arg val)
+   V arg pts -> do
+     (_,val) <- checks $ map infer pts
+     return (trm, Table arg val)
 
    K s  -> do
      if elem ' ' s