fix long standing bug in enumFromTo_double

thanks to Amos Robinson for helping figure out the correct implementation

Author: cartazio

Data/Vector/Fusion/Bundle/Monadic.hs

@@ -943,7 +943,7 @@ enumFromTo_char x y = x `seq` y `seq` fromStream (Stream step xn) (Exact n)
 
 enumFromTo_double :: (Monad m, Ord a, RealFrac a) => a -> a -> Bundle m v a
 {-# INLINE_FUSED enumFromTo_double #-}
-enumFromTo_double n m = n `seq` m `seq` fromStream (Stream step n) (Max (len n m))
+enumFromTo_double n m = n `seq` m `seq` fromStream (Stream step n) (Max (len n lim))
   where
     lim = m + 1/2 -- important to float out