yield needs to be this way for tail-recursion.

fsprojects · Jul 7, 2024 · 26e2938 · 26e2938
1 parent a1815a8
commit 26e2938
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/FSharpx.Extras/Strings.fs b/src/FSharpx.Extras/Strings.fs
@@ -137,11 +137,9 @@ module Strings =
           | ValuePatterns.Lower _ when not takeUpper -> consume from takeUpper (i + 1)
           | ValuePatterns.Upper _ when takeUpper -> consume from takeUpper (i + 1)
           | _ -> 
-            let r1 = struct(from, i) 
-            let r2 = restart i
             seq {
-              yield r1
-              yield! r2 }
+              yield struct(from, i)
+              yield! restart i }
 
         // Split string into segments and turn them to PascalCase
         seq { for i1, i2 in restart 0 do