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

another bug in the typechecker

Browse Source
This commit is contained in:
Krasimir Angelov
2025-05-03 07:31:44 +02:00
parent 188b77b083
commit 4c0644fd55
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/compiler/api/GF/Compile/TypeCheck/ConcreteNew.hs
View File

@@ -681,17 +681,23 @@ subsCheckRho scope t (VMeta i vs1) (VMeta j vs2)
Bound _ v1 -> do Bound _ v1 -> do
g <- globals g <- globals
subsCheckRho scope t (apply g v1 vs1) (VMeta j vs2) subsCheckRho scope t (apply g v1 vs1) (VMeta j vs2)
Residuation scope1 _ -> do Residuation scope1 (Just ctr1) -> do
g <- globals
subsCheckRho scope t (apply g ctr1 vs1) (VMeta j vs2)
Residuation scope1 Nothing -> do
mv <- getMeta j mv <- getMeta j
case mv of case mv of
Bound _ v2 -> do Bound _ v2 -> do
g <- globals g <- globals
subsCheckRho scope t (VMeta i vs1) (apply g v2 vs2) subsCheckRho scope t (VMeta i vs1) (apply g v2 vs2)
Residuation scope2 _ Residuation scope2 ctr2
| m > n -> do setMeta i (Bound scope1 (VMeta j vs2)) | m > n -> do setMeta i (Bound scope1 (VMeta j vs2))
return t return t
| otherwise -> do setMeta j (Bound scope2 (VMeta i vs2)) | otherwise -> case ctr2 of
return t Nothing -> do setMeta j (Bound scope2 (VMeta i vs2))
return t
Just ctr2 -> do g <- globals
subsCheckRho scope t (VMeta i vs1) (apply g ctr2 vs2)
where where
m = length scope1 m = length scope1
n = length scope2 n = length scope2