diff options
Diffstat (limited to 'frontend/syntax.icl')
| -rw-r--r-- | frontend/syntax.icl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/syntax.icl b/frontend/syntax.icl index 5f503b4..f5894bb 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -517,6 +517,11 @@ where (<<<) file (PS_Array index_expr) = file <<< '[' <<< index_expr <<< ']' (<<<) file PS_Erroneous = file <<< "Erroneous selector" // PK +instance <<< FieldNameOrQualifiedFieldName +where + (<<<) file (FieldName ident) = file <<< ident + (<<<) file (QualifiedFieldName module_ident field_name) = file <<< module_ident <<< '@' <<< field_name + instance <<< CaseAlt where (<<<) file {calt_pattern,calt_rhs} = file <<< calt_pattern <<< " -> " <<< calt_rhs |