change the data types and the syntax in PGF to match the new syntax for implict arguments

This commit is contained in:
krasimir
2009-09-20 11:43:41 +00:00
parent 6549bd7caf
commit 1dfa67a30a
14 changed files with 168 additions and 198 deletions

View File

@@ -74,7 +74,7 @@ appCommand xs c@(Command i os arg) = case arg of
_ -> c
where
app e = case e of
EAbs x e -> EAbs x (app e)
EAbs b x e -> EAbs b x (app e)
EApp e1 e2 -> EApp (app e1) (app e2)
ELit l -> ELit l
EMeta i -> xs !! i

View File

@@ -27,6 +27,6 @@ allTreeOps pgf = [
smallest :: [Expr] -> [Expr]
smallest = sortBy (\t u -> compare (size t) (size u)) where
size t = case t of
EAbs _ e -> size e + 1
EAbs _ _ e -> size e + 1
EApp e1 e2 -> size e1 + size e2 + 1
_ -> 1