GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 00:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

extend behaviour for interface and incomplete

Browse Source
This commit is contained in:
aarne
2007-12-09 10:52:19 +00:00
parent b693ba103c
commit 6a4218e9ef
5 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Devel/Compile/Refresh.hs
View File

@@ -54,7 +54,7 @@ refresh e = case e of
Prod x a b -> do
a' <- refresh a
x' <- refVar x
x' <- refVarPlus x
b' <- refresh b
return $ Prod x' a' b'
@@ -79,7 +79,7 @@ refreshCase :: (Patt,Term) -> STM IdState (Patt,Term)
refreshCase (p,t) = liftM2 (,) (refreshPatt p) (refresh t)
refreshPatt p = case p of
PV x -> liftM PV (refVar x)
PV x -> liftM PV (refVarPlus x)
PC c ps -> liftM (PC c) (mapM refreshPatt ps)
PP q c ps -> liftM (PP q c) (mapM refreshPatt ps)
PR r -> liftM PR (mapPairsM refreshPatt r)