diff options
| author | sjakie | 2000-02-07 13:03:01 +0000 |
|---|---|---|
| committer | sjakie | 2000-02-07 13:03:01 +0000 |
| commit | f22483910cad05eb43c88dcbddd296f3809cfc6d (patch) | |
| tree | 515042fad28547e3e9307a77ca4db3db10adb437 /frontend/checktypes.icl | |
| parent | bug fix: Observations (diff) | |
commit for Sjaak by RWS
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@83 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checktypes.icl')
| -rw-r--r-- | frontend/checktypes.icl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/frontend/checktypes.icl b/frontend/checktypes.icl index 5fb1791..49651fb 100644 --- a/frontend/checktypes.icl +++ b/frontend/checktypes.icl @@ -1015,8 +1015,13 @@ where TA_Var var -> (TA_RootVar var, error) _ + -> (TA_RootVar undef, error) +/* = case root_attr of + TA_Var var + -> (TA_RootVar var, error) + _ -> (root_attr, error) - check_attribute attr root_attr name error +*/ check_attribute attr root_attr name error = (TA_Multi, checkError name "specified attribute not allowed" error) retrieveKinds :: ![ATypeVar] *TypeVarHeap -> (![TypeKind], !*TypeVarHeap) |