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

appForm now skips over Typed expressions

Browse Source
This commit is contained in:
kr.angelov
2014-09-17 22:02:36 +00:00
parent ff45e7dd3a
commit 4f23ed2289
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Grammar/Macros.hs
View File

@@ -116,8 +116,9 @@ termFormCnc t = case t of
appForm :: Term -> (Term, [Term]) appForm :: Term -> (Term, [Term])
appForm t = case t of appForm t = case t of
App c a -> (fun, args ++ [a]) where (fun, args) = appForm c App c a -> (fun, args ++ [a]) where (fun, args) = appForm c
_ -> (t,[]) Typed t _ -> appForm t
_ -> (t,[])
mkProdSimple :: Context -> Term -> Term mkProdSimple :: Context -> Term -> Term
mkProdSimple c t = mkProd c t [] mkProdSimple c t = mkProd c t []