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

bugfix in the term generation

Browse Source
This commit is contained in:
krasimir
2010-10-20 13:36:39 +00:00
parent d45b4ae426
commit 2991b7acef
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Generate.hs
View File

@@ -107,7 +107,7 @@ prove dp scope (TTyp env1 (DTyp [] cat es1)) = do
mkEnv env ((bt,x,ty):hypos) = do
(env,arg) <- if x /= wildCId
then do i <- newMeta scope (TTyp env ty)
return (VMeta i env [] : env,Right (EMeta i))
return (VMeta i (scopeEnv scope) [] : env,Right (EMeta i))
else return (env,Left (TTyp env ty))
(env,args) <- mkEnv env hypos
return (env,(bt,arg):args)