Fixed stupid loop bug in rbdict.erl.

rvirding · May 7, 2009 · 45c9be4 · 45c9be4
1 parent c63b1a7
commit 45c9be4
Show file tree

Hide file tree

Showing 5 changed files with 9 additions and 1 deletion.
diff --git a/ebin/rbdict.beam b/ebin/rbdict.beam
diff --git a/ebin/rbdict1.beam b/ebin/rbdict1.beam
diff --git a/ebin/rbsets.beam b/ebin/rbsets.beam
diff --git a/src/ChangeLog b/src/ChangeLog
@@ -0,0 +1,8 @@
+2009-05-08  Robert Virding  <rv@arthur>
+
+	* rbdict.erl (find): Fixed loop bug.
+
+2009-05-07  Robert Virding  <rv@arthur>
+
+	* rbdict.erl, rbsets.erl: Initial release.
+
diff --git a/src/rbdict.erl b/src/rbdict.erl
@@ -104,7 +104,7 @@ find(_, empty) -> error;
 find(K, {_,Left,K1,_,_}) when K < K1 ->
     find(K, Left);
 find(K, {_,_,K1,_,Right}) when K > K1 ->
-    fetch(K, Right);
+    find(K, Right);
 find(_, {_,_,_,Val,_}) -> {ok,Val}.
 
 %% fetch_keys(Dict) -> [Key].