GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki 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 mkEnv env ((bt,x,ty):hypos) = do
(env,arg) <- if x /= wildCId (env,arg) <- if x /= wildCId
then do i <- newMeta scope (TTyp env ty) 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)) else return (env,Left (TTyp env ty))
(env,args) <- mkEnv env hypos (env,args) <- mkEnv env hypos
return (env,(bt,arg):args) return (env,(bt,arg):args)