yield need to be this way for tail-recursion

src/Deedle/FSharp.Data/CommonRuntime/NameUtils.fs

@@ -42,30 +42,24 @@ let nicePascalName (s:string) =
     | Upper _ -> consume from true (i + 1)
     | Lower _ -> consume from false (i + 1)
     | _ ->
-        let r1 = struct (from, i)
-        let r2 = restart (i + 1)
         seq {
-          yield r1
-          yield! r2
+          yield struct (from, i)
+          yield! restart (i + 1)
         }
   // Consume are letters of the same kind (either all lower or all upper)
   and consume from takeUpper i = 
     match takeUpper, tryAt s i with
     | false, Lower _ -> consume from takeUpper (i + 1)
     | true, Upper _ -> consume from takeUpper (i + 1)
     | true, Lower _ ->
-        let r1 = struct (from, (i - 1))
-        let r2 = restart (i - 1)
         seq {
-          yield r1
-          yield! r2
+          yield struct (from, (i - 1))
+          yield! restart (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