Changed Ok(0) to Error(NegativeInfinityError).

Value: [1e-7 to 1e-5]

packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res

@@ -239,9 +239,11 @@ module T = Dist({
     if referenceIsZero {
       Ok(0.0)
     } else {
-      combinePointwise(~fn=PointSetDist_Scoring.KLDivergence.logScore, base, reference) |> E.R2.bind(
-        integralEndYResult,
-      )
+      combinePointwise(
+        ~fn=PointSetDist_Scoring.KLDivergence.logScore,
+        base,
+        reference,
+      ) |> E.R2.bind(integralEndYResult)
     }
   }
 })

packages/squiggle-lang/src/rescript/Utility/Operation.res

@@ -157,8 +157,8 @@ module Scale = {
     | #Divide => divide(a, b)
     | #Power => power(a, b)
     | #Logarithm =>
-      if a < MagicNumbers.Epsilon.seven {
-        Ok(0.0)
+      if a < MagicNumbers.Epsilon.ten {
+        Error(NegativeInfinityError)
       } else {
         logarithm(a, b)
       }