experimenting with English VP

This commit is contained in:
aarne
2005-11-22 22:00:47 +00:00
parent e8cc4b5967
commit ce6c032c6f
2 changed files with 2 additions and 1 deletions

View File

@@ -266,7 +266,7 @@ checkIfLinType st typ0 = do
where
checkInh (label,typ) = checkIfParType st typ
checkLin (label,typ) = checkIfStrType st typ
checkLin (label,typ) = return () ---- checkIfStrType st typ
computeLType :: SourceGrammar -> Type -> Check Type