Remove redundant number-to-atom conversion

khueue · Sep 2, 2012 · bd0b0bf · bd0b0bf
1 parent 4cd98d4
commit bd0b0bf
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/bson/bson_encoder.pl b/src/bson/bson_encoder.pl
@@ -151,8 +151,7 @@
     add_array_keys(List, 0, Array).
 
 add_array_keys([], _Index, []).
-add_array_keys([Value|Values], Index, [Key-Value|Pairs]) :-
-    core:atom_number(Key, Index),
+add_array_keys([Value|Values], Index, [Index-Value|Pairs]) :-
     Index1 is Index + 1,
     add_array_keys(Values, Index1, Pairs).