anchor.diff:  %% =====================================================================    
   handle_call({is_block_name, BlockName}, _From, State) ->
     case valid_block_name(BlockName) of
  -		true-> 
  -			Result = true;
  -		_ ->
  -			Result = false
  -	end,
  +    true-> 
  +      Result = true;
  +    _ ->
  +      Result = false
  +  end,
     {reply, Result, State};
   
   
  
positive.code: %% API functions
  %% ====================================================================
  -export([
  					start/0,
  					stop/1,
  					create_block/4,
  					copy_block/4,
  					delete_block/2,
  					get_block/2,
  					get_value/3,
  					get_block_names/1,
  					get_types_info/1,
  					get_type_info/2,
  					set_value/4,
  					set_link/4,
  					execute_block/2,
           	is_block_name/2, 
  				 	is_block_type/2
  ]). 
  
  
  
negative.code: %% =====================================================================    
  % TODO: Set initial attribute values
  handle_call({create_block, BlockType, BlockName, _InitAttribs}, _From, State) ->
    case lists:member(BlockType, block_types:block_type_names()) of
      true ->
        BlockModule = block_types:block_type_to_module(BlockType),
        case valid_block_name(BlockName) of
          false ->
            BlockValues = BlockModule:create(BlockName, "Default Comment"),
            case block_supervisor:create_block(BlockValues) of
              {ok, _Pid} -> 
                Result = ok;
              {error, Reason} -> 
                Result = {error, Reason}
            end;
          _ ->
            Result = {error, block_exists}
        end;
      _ ->
        Result = {error, invalid_block_type}
    end,
    {reply, Result, State};
  
  
  