From 83bc6d4cda927a9f2716958398da5d5684d96a8b Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 27 Oct 2009 15:45:05 +0000
Subject: simplify the Term again

---
 src/GF/Compile/GrammarToGFCC.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/GF/Compile/GrammarToGFCC.hs')

diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs
index c284b176c..dd3a14f38 100644
--- a/src/GF/Compile/GrammarToGFCC.hs
+++ b/src/GF/Compile/GrammarToGFCC.hs
@@ -436,7 +436,6 @@ term2term fun cgr env@(labels,untyps,typs) tr = case tr of
   R rs    -> R [(mkLab i, (Nothing, t2t t)) | 
                  (i,(l,(_,t))) <- zip [0..] (GM.sortRec (unlock rs))]
   P  t l   -> r2r tr
-  PI t l i -> EInt $ toInteger i
 
   T (TWild _) _ -> error $ (render (text "wild" <+> ppTerm Qualified 0 tr))
   T (TComp  ty) cs  -> t2t $ V ty $ map snd cs ---- should be elim'ed in tc
-- 
cgit v1.2.3