actually good!

1 files changed, 6 insertions, 4 deletions

diff --git a/sorsyl/lib/ipa_table.ml b/sorsyl/lib/ipa_table.ml
index 295100d..3ecbda4 100644
--- a/sorsyl/lib/ipa_table.ml
+++ b/sorsyl/lib/ipa_table.ml
@@ -121,9 +121,11 @@ let longest_one_seg_prefix trie word =
 
 let ipa_segs ?(_normalize = true) data word =
   let rec aux acc remaining =
-    match longest_one_seg_prefix data.trie remaining with
-    | None -> acc
-    | Some seg ->
-        aux (seg :: acc) (String.drop_prefix remaining (String.length seg))
+    if String.is_empty remaining then acc
+    else
+      match longest_one_seg_prefix data.trie remaining with
+      | None -> aux acc (String.drop_prefix remaining 1)
+      | Some seg ->
+          aux (seg :: acc) (String.drop_prefix remaining (String.length seg))
   in
   List.rev (aux [] word)