diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-01-20 10:54:38 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-01-20 10:54:38 +0000 |
| commit | 60d7d169061d98ec3747c111b9322297c63b2646 (patch) | |
| tree | 37583bfbd6a8a9b8707f09d2195ddac23651ee92 /src/GF/Compile | |
| parent | 62105801a1669d1b6566ba07da8c18b9c5f66f56 (diff) | |
started romance predication; some restructuring of modules; CheckGrammar value table bug fix
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/CheckGrammar.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |