msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

In transfer beta reduction optimization: reduce bottom-up instead of top-down.

Browse Source
This commit is contained in:
bringert
2005-11-29 15:56:35 +00:00
parent 8a1efe2ce5
commit cffaff9588
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Transfer/SyntaxToCore.hs
View File

@@ -200,10 +200,7 @@ replaceCons ds = mapM f ds
-- redexes produced here. -- redexes produced here.
EVar id | isCons id -> do EVar id | isCons id -> do
let Just n = Map.lookup id cs let Just n = Map.lookup id cs
-- abstract n (apply t) abstract n (apply t)
vs <- freshIdents n
let c = apply t (map EVar vs)
return $ foldr (EAbs . VVar) c vs
_ -> composOpM f t _ -> composOpM f t
-- --
@@ -215,7 +212,10 @@ betaReduce = return . map f
where where
f :: Tree a -> Tree a f :: Tree a -> Tree a
f t = case t of f t = case t of
EApp (EAbs (VVar x) b) e | countFreeOccur x b == 1 -> f (subst x e b) EApp e1 e2 ->
case (f e1, f e2) of
(EAbs (VVar x) b, e) | countFreeOccur x b == 1 -> f (subst x e b)
(e1',e2') -> EApp e1' e2'
_ -> composOp f t _ -> composOp f t
-- --