From c5146d06143c9b93e40bb2b1265ab58134be36d7 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 13 Nov 2003 16:02:25 +0000
Subject: Improved interface and instance compilation.

Improved interface and instance compilation.
Restored an optimization of the optimizer: up to 4x faster now.
---
 src/GF/Grammar/Compute.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/Grammar/Compute.hs')

diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 705b81ded..e400bce4e 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -172,6 +172,10 @@ computeTerm gr = comp where
          _ -> return $ ExtR r' s'
 
      -- case-expand tables
+     T i@(TComp _) cs -> do
+       cs' <- mapPairsM (comp g) cs
+       return $ T i cs'
+
      T i cs -> do
        pty0 <- getTableType i
        ptyp <- comp g pty0
-- 
cgit v1.2.3