diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-13 20:40:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-13 20:40:50 +0000 |
| commit | 4fd51838637b696892f4bde48b6741d84186621e (patch) | |
| tree | 85abc0dfffbff6a90ae013541a37742b7b21ebf5 /src-3.0/GF/Compile | |
| parent | 4b1faf4ae547b995e8d6cd9841e63791cbe1bebb (diff) | |
arabic in 1.4 - something makes compilation get stuck
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/Optimize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/Optimize.hs b/src-3.0/GF/Compile/Optimize.hs index d2b303bc6..83cbeb57a 100644 --- a/src-3.0/GF/Compile/Optimize.hs +++ b/src-3.0/GF/Compile/Optimize.hs @@ -128,7 +128,7 @@ evalCncInfo opts gr cnc abs (c,info) = do return (c, CncCat ptyp pde' ppr') - CncFun (mt@(Just (_,ty@(cont,val)))) pde ppr -> + CncFun (mt@(Just (_,ty@(cont,val)))) pde ppr -> --trace (prt c) $ eIn ("linearization in type" +++ prt (mkProd (cont,val,[])) ++++ "of function") $ do pde' <- case pde of Yes de -> do |