mkNumericSumAsMul allow max length paths

SparseLinearAlgebra · Oct 14, 2023 · d2951d4 · d2951d4
1 parent 53c6715
commit d2951d4
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/GraphBLAS-sharp.Backend/Quotes/Arithmetic.fs b/src/GraphBLAS-sharp.Backend/Quotes/Arithmetic.fs
@@ -38,14 +38,13 @@ module ArithmeticOperations =
 
     let inline private mkNumericSumAsMul zero =
         <@ fun (x: 't option) (y: 't option) ->
-            let mutable res = zero
+            let mutable res = None
 
             match x, y with
-            | Some f, Some s -> res <- f + s
+            | Some f, Some s -> res <- Some(f + s)
             | _ -> ()
 
-
-            if res = zero then None else Some res @>
+            res @>
 
     let inline private mkNumericMul zero =
         <@ fun (x: 't option) (y: 't option) ->