anchor.diff:  	false;	
   transform(Value) when is_atom(Value) ->
   	erlang:atom_to_binary(Value, utf8);
  -transform(Value) when is_list(Value)->
  -	erlang:list_to_binary(Value);
  +transform(Value) when is_list(Value) ->
  +	case is_tuple_list(Value) of 
  +		true -> Value;
  +		false -> erlang:list_to_binary(Value)
  +	end;
   transform(Value) ->
   	Value.
  -	
  +is_tuple_list([H|T]) ->
  +	is_tuple(H). 
  +
   -include_lib("eunit/include/eunit.hrl").
   -ifdef(TEST).
   
  
positive.code: 	?assertEqual(false, transform(false)),
  	?assertEqual(1, transform(1)),
  	?assertEqual(1.0, transform(1.0)),
  	?assertEqual(<<"test">>, transform("test")).
  -endif.
  
negative.code: -export([proplists_to_jsx_input/1]).
  
  proplists_to_jsx_input(List) ->
  	[{transform(X),transform(Y)} || {X,Y} <- List].
  	
  transform(true) ->
  	true;
  