mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 09:02:50 -06:00
change the data types and the syntax in PGF to match the new syntax for implict arguments
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user