diff options
| author | sjakie | 1999-10-19 11:24:04 +0000 |
|---|---|---|
| committer | sjakie | 1999-10-19 11:24:04 +0000 |
| commit | dc65169372a5f091a6a2b82fb2fe1fa6bc071868 (patch) | |
| tree | 80164f71865c57ba54bc98c5ff5d63e4648ea948 | |
| parent | Shit, ik heb geen zin om alles dubbel in te tikken (diff) | |
*** empty log message ***
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@18 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/syntax.icl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/frontend/syntax.icl b/frontend/syntax.icl index af1f101..4641e74 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -1120,15 +1120,18 @@ where instance <<< TypeVar where - (<<<) file varid = file <<< varid.tv_name <<< '[' <<< ptrToInt varid.tv_info_ptr <<< ']' +// (<<<) file varid = file <<< varid.tv_name <<< '[' <<< ptrToInt varid.tv_info_ptr <<< ']' + (<<<) file varid = file <<< varid.tv_name instance <<< AttributeVar where - (<<<) file {av_name,av_info_ptr} = file <<< av_name <<< '[' <<< ptrToInt av_info_ptr <<< ']' +// (<<<) file {av_name,av_info_ptr} = file <<< av_name <<< '[' <<< ptrToInt av_info_ptr <<< ']' + (<<<) file {av_name,av_info_ptr} = file <<< av_name instance toString AttributeVar where - toString {av_name,av_info_ptr} = toString av_name + "[" + toString (ptrToInt av_info_ptr) + "]" +// toString {av_name,av_info_ptr} = toString av_name + "[" + toString (ptrToInt av_info_ptr) + "]" + toString {av_name,av_info_ptr} = toString av_name instance <<< AType where |