diff options
-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 |