anchor.diff:      true|false).
   delete_element(SchemaId, ElementId) ->
       gen_server:call(?SERVER,
  -        {delete_sub, SchemaId, ElementId, fun modify_schema_elements/3}).
  +        {delete_element, SchemaId, ElementId}).
   
   %% Connections
   
  
positive.code:                 {true, lists:keydelete(SubId, #element.id, Subs)}
          end
      end, State).
  
  modify_schema(SchemaId, Fun,
          #state{schemas = Schemas} = State) ->
  
negative.code:     true|false).
  delete_connection(SchemaId, ConnectionId) ->
      gen_server:call(?SERVER,
          {delete_connection, SchemaId, ConnectionId}).
  
  
  %%%===================================================================
  