\begin{code}
{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
-- |
jsplith p (n:ns) =
case n `quotRemInteger` p of
(# q, r #) ->
- if q > 0 then fromInteger q : fromInteger r : jsplitb p ns
- else fromInteger r : jsplitb p ns
+ if q > 0 then q : r : jsplitb p ns
+ else r : jsplitb p ns
jsplith _ [] = error "jsplith: []"
jsplitb :: Integer -> [Integer] -> [Integer]
-- head (drop 1000000 [1 .. ]
-- works
+{-# NOINLINE [0] enumDeltaToIntegerFB #-}
+-- Don't inline this until RULE "enumDeltaToInteger" has had a chance to fire
enumDeltaToIntegerFB :: (Integer -> a -> a) -> a
-> Integer -> Integer -> Integer -> a
enumDeltaToIntegerFB c n x delta lim