1
0
forked from GitHub/gf-core

removed dependencies of Zipper and editor in GF grammar compiler

This commit is contained in:
aarne
2008-12-08 14:25:11 +00:00
parent 75ecc5f97b
commit e009048e08
4 changed files with 46 additions and 37 deletions

View File

@@ -20,7 +20,7 @@ module GF.Compile.TypeCheck (-- * top-level type checking functions; TC should n
) where
import GF.Data.Operations
import GF.Data.Zipper
--import GF.Data.Zipper
import GF.Grammar.Abstract
import GF.Compile.Refresh
@@ -42,7 +42,7 @@ initTCEnv gamma =
type2val :: Type -> Val
type2val = VClos []
{-
aexp2tree :: (AExp,[(Val,Val)]) -> Err Tree
aexp2tree (aexp,cs) = do
(bi,at,vt,ts) <- treeForm aexp
@@ -74,7 +74,7 @@ aexp2tree (aexp,cs) = do
v' <- whnf v ----
return ([],AtM m,v',[])
_ -> Bad "illegal tree" -- AProd
-}
cont2exp :: Context -> Exp
cont2exp c = mkProd (c, eType, []) -- to check a context