yield needs to be this way for tail-recursion

CSBiology · Jul 7, 2024 · d83b5a0 · d83b5a0
1 parent 7698437
commit d83b5a0
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/FSharpAux.Core/String.fs b/src/FSharpAux.Core/String.fs
@@ -121,11 +121,9 @@ module String =
           | Lower _ when not takeUpper -> consume from takeUpper (i + 1)
           | 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