if (ffe_is_vxt_not_90 ())
if (ffe_is_vxt ())
ffeexpr_token_rhs_ (ffelexToken t){  ffeexprExpr_ e;  switch (ffelex_token_type (t))    {    case FFELEX_typeQUOTE:      if (ffe_is_vxt_not_90 ())	{	  ffeexpr_tokens_[0] = ffelex_token_use (t);	  return (ffelexHandler) ffeexpr_token_quote_;	}      ffeexpr_tokens_[0] = ffelex_token_use (t);      ffelex_set_expecting_hollerith (-1, '\"',				      ffelex_token_where_line (t),				      ffelex_token_where_column (t));      /* Don't have to unset this one. */      return (ffelexHandler) ffeexpr_token_apostrophe_;    case FFELEX_typeAPOSTROPHE:      ffeexpr_tokens_[0] = ffelex_token_use (t);      ffelex_set_expecting_hollerith (-1, '\'',				      ffelex_token_where_line (t),				      ffelex_token_where_column (t));      /* Don't have to unset this one. */      return (ffelexHandler) ffeexpr_token_apostrophe_;    case FFELEX_typePERCENT:      ffeexpr_tokens_[0] = ffelex_token_use (t);      return (ffelexHandler) ffeexpr_token_percent_;    case FFELEX_typeOPEN_PAREN:      ffeexpr_stack_->tokens[0] = ffelex_token_use (t);      return (ffelexHandler) ffeexpr_rhs (ffeexpr_stack_->pool,					  FFEEXPR_contextPAREN_,					  ffeexpr_cb_close_paren_c_);    case FFELEX_typePLUS:      e = ffeexpr_expr_new_ ();      e->type = FFEEXPR_exprtypeUNARY_;      e->token = ffelex_token_use (t);      e->u.operator.op = FFEEXPR_operatorADD_;      e->u.operator.prec = FFEEXPR_operatorprecedenceADD_;      e->u.operator.as = FFEEXPR_operatorassociativityADD_;      ffeexpr_exprstack_push_unary_ (e);      return (ffelexHandler) ffeexpr_token_rhs_;    case FFELEX_typeMINUS:      e = ffeexpr_expr_new_ ();      e->type = FFEEXPR_exprtypeUNARY_;      e->token = ffelex_token_use (t);      e->u.operator.op = FFEEXPR_operatorSUBTRACT_;      e->u.operator.prec = FFEEXPR_operatorprecedenceSUBTRACT_;      e->u.operator.as = FFEEXPR_operatorassociativitySUBTRACT_;      ffeexpr_exprstack_push_unary_ (e);      return (ffelexHandler) ffeexpr_token_rhs_;    case FFELEX_typePERIOD:      ffeexpr_tokens_[0] = ffelex_token_use (t);      return (ffelexHandler) ffeexpr_token_period_;    case FFELEX_typeNUMBER:      ffeexpr_tokens_[0] = ffelex_token_use (t);      ffeexpr_hollerith_count_ = atol (ffelex_token_text (t));      if (ffeexpr_hollerith_count_ > 0)	ffelex_set_expecting_hollerith (ffeexpr_hollerith_count_,					'\0',					ffelex_token_where_line (t),					ffelex_token_where_column (t));      return (ffelexHandler) ffeexpr_token_number_;    case FFELEX_typeNAME:    case FFELEX_typeNAMES:      ffeexpr_tokens_[0] = ffelex_token_use (t);      switch (ffeexpr_stack_->context)	{	case FFEEXPR_contextACTUALARG_:	case FFEEXPR_contextINDEXORACTUALARG_:	case FFEEXPR_contextSFUNCDEFACTUALARG_:	case FFEEXPR_contextSFUNCDEFINDEXORACTUALARG_:	  return (ffelexHandler) ffeexpr_token_name_arg_;	default:	  return (ffelexHandler) ffeexpr_token_name_rhs_;	}    case FFELEX_typeASTERISK:    case FFELEX_typeSLASH:    case FFELEX_typePOWER:    case FFELEX_typeCONCAT:    case FFELEX_typeREL_EQ:    case FFELEX_typeREL_NE:    case FFELEX_typeREL_LE:    case FFELEX_typeREL_GE:      if (ffest_ffebad_start (FFEBAD_MISSING_FIRST_BINARY_OPERAND))	{	  ffebad_here (0, ffelex_token_where_line (t), ffelex_token_where_column (t));	  ffebad_finish ();	}      return (ffelexHandler) ffeexpr_token_rhs_;#if 0    case FFELEX_typeEQUALS:    case FFELEX_typePOINTS:    case FFELEX_typeCLOSE_ANGLE:    case FFELEX_typeCLOSE_PAREN:    case FFELEX_typeCOMMA:    case FFELEX_typeCOLON:    case FFELEX_typeEOS:    case FFELEX_typeSEMICOLON:#endif    default:      return (ffelexHandler) ffeexpr_finished_ (t);    }}