started a directory of grammars testing testgf3 features

This commit is contained in:
aarne
2008-02-22 15:17:50 +00:00
parent 6621290502
commit 621d3fdfd1
8 changed files with 28 additions and 15 deletions

View File

@@ -516,6 +516,8 @@ inferLType gr trm = case trm of
Empty -> return (trm, typeStr)
EParam _ cos -> return (trm, typePType) ---- check cos
C s1 s2 ->
check2 (flip justCheck typeStr) C s1 s2 typeStr