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

bugfix in PGF.TypeCheck

Browse Source
This commit is contained in:
krasimir
2010-02-20 18:48:06 +00:00
parent 45d209baf8
commit 59d640088e
4 changed files with 36 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
testsuite/runtime/typecheck/Test.gf
View File

@@ -34,4 +34,6 @@ fun h : (n : Nat) -> U n n -> Int ;
-- fun u2 : (n : Nat) -> U (plus n zero) zero ;
-- fun h2 : (f : Nat -> Nat) -> ((n : Nat) -> U (f n) (f zero)) -> Int ;
fun forall2 : (n : Nat) -> (Vector n -> Vector n -> Int) -> Int ;
}

3
testsuite/runtime/typecheck/typecheck.gfs
View File

@@ -27,4 +27,5 @@ ai h ? (u1 ?)
ai cmpVector (succ (succ zero)) (vector (succ (succ zero))) (append ? (succ zero) (vector ?) (vector (succ zero)))
ai diff ? (succ (succ zero)) (vector (succ (succ (succ (succ (succ zero)))))) (vector (succ (succ (succ zero))))
ai diff ? (succ (succ zero)) (vector (succ (succ (succ (succ zero))))) (vector (succ (succ (succ zero))))
ai idMorph (mkMorph2 (\x -> ?) (vector zero))
ai idMorph (mkMorph2 (\x -> ?) (vector zero))
ai <(\n -> forall2 n (\x,y -> cmpVector zero x y)) : Nat -> Int>

3
testsuite/runtime/typecheck/typecheck.gfs.gold
View File

@@ -69,3 +69,6 @@ In the expression: vector (succ (succ (succ (succ zero))))
Category EQ is not in scope
Expression: <\v1, v2 -> cmpVector ?7 v1 v2 : Vector ?7 -> Vector ?7 -> Int> (vector ?7)