msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix value2term for predefined functions

Browse Source
This commit is contained in:
krangelov
2021-12-13 09:44:28 +01:00
parent ad4c5029a3
commit f7bf18d101
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/Compute/Concrete.hs
View File

@@ -411,7 +411,7 @@ patternMatch v0 ((env0,ps,args0,t):eqs) = match env0 ps eqs args0
return (mt,tnk:tnks) return (mt,tnk:tnks)
value2term i (VApp q tnks) = value2term i (VApp q tnks) =
foldM (\e1 tnk -> fmap (App e1) (force tnk >>= value2term i)) (QC q) tnks foldM (\e1 tnk -> fmap (App e1) (force tnk >>= value2term i)) (if fst q == cPredef then Q q else QC q) tnks
value2term i (VMeta m env tnks) = do value2term i (VMeta m env tnks) = do
res <- zonk m tnks res <- zonk m tnks
case res of case res of