anchor.diff:      SWITCH_STMT;
       SWITCH_EXPR;
       SWITCH_CASE_LIST;
  -    CASE_ITEM;
  -    CASE_DEFAULT;
       TYPE_CONSTRAINT_LIST;
       TYPE;
       TYPE_CONSTRAINT;
  
positive.code:         satisfiedTypes?
          typeConstraints?
          (classBody | typeSpecifier? ';'!)
      ;
  
  objectDeclaration
      :
          'object'!
          memberName
          extendedType?
          satisfiedTypes?
          classBody
      ;
  
  classBody
  
negative.code: //a smalltalk-style parameter to a positional parameter
  //invocation
  functionalArgument
      : parameterName functionalArgumentDefinition
      -> ^(NAMED_ARG parameterName ^(INLINE_METHOD_ARG parameterName functionalArgumentDefinition))
      ;
  
  functionalArgumentDefinition
  