tries module: fix bug in trie_traverse/2

2010-02-24 18:03:43 +00:00
parent eab72f6ab7
commit 5d0e404191
2 changed files with 6 additions and 3 deletions
--- a/library/tries/base_tries.c
+++ b/library/tries/base_tries.c
@@ -189,7 +189,11 @@ inline
 TrData trie_traverse_init(TrEntry trie, TrData init_data) {
  TrData data;

-  data = TrData_next(init_data);
+  if (init_data) {
+    data = TrData_next(init_data);
+  } else {
+    data = TrEntry_first_data(trie);
+  }
  TrEntry_traverse_data(trie) = data;
  return data;
 }