From f20f951c7c04bdc76ee6a65839a676f3c6f69137 Mon Sep 17 00:00:00 2001
From: Alexey Romanov <alexey.v.romanov@gmail.com>
Date: Tue, 5 Oct 2010 14:32:08 +0400
Subject: [PATCH] Simplified replace function (see Erlang Efficiency Guide)

---
 src/sqlite3_lib.erl | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/src/sqlite3_lib.erl b/src/sqlite3_lib.erl
index d77ad9f..20ef8f0 100644
--- a/src/sqlite3_lib.erl
+++ b/src/sqlite3_lib.erl
@@ -77,16 +77,11 @@ write_col_sql(Cols) ->
 %% @end
 %%--------------------------------------------------------------------
 -spec (replace/1::(string ()) -> string ()).
-replace ([34 | T]) ->
-  replace (T, ["'"]);
-replace ([H | T]) ->
-  replace (T, [binary_to_list (<<H>>)]).
-replace ([], L) ->
-  lists:flatten (lists:reverse (L));
-replace ([34 | T], L) ->
-  replace (T, ["'" | L]);
-replace ([H | T], L) ->
-  replace (T, [binary_to_list (<<H>>) | L]).
+replace([]) -> [];
+replace([$" | T]) ->
+  [$' | replace(T)];
+replace([H | T]) ->
+  [H | replace(T)].
 
 %%--------------------------------------------------------------------
 %% @spec update_set_sql ([{Col, Value}]) -> string ()