mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-20 18:29:33 -06:00
17 lines
391 B
Haskell
17 lines
391 B
Haskell
module TMacros where
|
|
|
|
import AbsTgt
|
|
|
|
appVal :: Val -> [Val] -> Val
|
|
appVal v vs = compVal vs v
|
|
|
|
compVal :: [Val] -> Val -> Val
|
|
compVal args = comp where
|
|
comp val = case val of
|
|
VRec vs -> VRec $ map comp vs
|
|
VPro r p -> case (comp r, comp p) of
|
|
(VRec vs, VPar i) -> vs !! fromInteger i
|
|
VArg i -> args !! fromInteger i
|
|
VCat x y -> VCat (comp x) (comp y)
|
|
_ -> val
|