4 files changed, 39 insertions, 37 deletions

diff --git a/examples/tests.hs b/examples/tests.hs
index e20f871..6bc1922 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -21,14 +21,16 @@ type CM = Matrix (Complex Double)
 
 -- relative error
 dist :: (Normed t, Num t) => t -> t -> Double
-dist a b = f nab na nb
+dist a b = r
     where norm = pnorm Infinity
           na = norm a
           nb = norm b
           nab = norm (a-b)
-          f _ a 0 = a
-          f _ 0 b = b
-          f d a b = d / max a b
+          mx = max na nb
+          mn = min na nb
+          r = if mn < eps
+                then mx
+                else nab/mx
 
 infixl 4 |~|
 a |~| b = a :~10~: b
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs
index c059cf1..cb86f03 100644
--- a/lib/Numeric/GSL/Special/Debye.hs
+++ b/lib/Numeric/GSL/Special/Debye.hs
@@ -23,10 +23,10 @@ module Numeric.GSL.Special.Debye(
 , debye_3
 , debye_4_e
 , debye_4
-, debye_5_e
-, debye_5
-, debye_6_e
-, debye_6
+--, debye_5_e
+--, debye_5
+--, debye_6_e
+--, debye_6
 ) where
 
 import Foreign(Ptr)
@@ -92,27 +92,27 @@ foreign import ccall "debye.h gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double
 -- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_5_e :: Double -> (Double,Double)
-debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
-foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
+--debye_5_e :: Double -> (Double,Double)
+--debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
+--foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
 
 -- | wrapper for double gsl_sf_debye_5(double x);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_5 :: Double -> Double
-debye_5 = gsl_sf_debye_5
-foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
+--debye_5 :: Double -> Double
+--debye_5 = gsl_sf_debye_5
+--foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
 
 -- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_6_e :: Double -> (Double,Double)
-debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
-foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
+--debye_6_e :: Double -> (Double,Double)
+--debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
+--foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
 
 -- | wrapper for double gsl_sf_debye_6(double x);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_6 :: Double -> Double
-debye_6 = gsl_sf_debye_6
-foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double
+--debye_6 :: Double -> Double
+--debye_6 = gsl_sf_debye_6
+--foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs
index 52ca412..dfd36d9 100644
--- a/lib/Numeric/GSL/Special/Ellint.hs
+++ b/lib/Numeric/GSL/Special/Ellint.hs
@@ -19,10 +19,10 @@ module Numeric.GSL.Special.Ellint(
 , ellint_Kcomp
 , ellint_Ecomp_e
 , ellint_Ecomp
-, ellint_Pcomp_e
-, ellint_Pcomp
-, ellint_Dcomp_e
-, ellint_Dcomp
+--, ellint_Pcomp_e
+--, ellint_Pcomp
+--, ellint_Dcomp_e
+--, ellint_Dcomp
 , ellint_F_e
 , ellint_F
 , ellint_E_e
@@ -76,30 +76,30 @@ foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Doubl
 -- | wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
-ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
+--ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
+--ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n  (precCode mode)
+--foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
 
 -- | wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Pcomp :: Double -> Double -> Precision -> Double
-ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
+--ellint_Pcomp :: Double -> Double -> Precision -> Double
+--ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n  (precCode mode)
+--foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
 
 -- | wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
-ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
+--ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
+--ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k  (precCode mode)
+--foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
 
 -- | wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Dcomp :: Double -> Precision -> Double
-ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
+--ellint_Dcomp :: Double -> Precision -> Double
+--ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k  (precCode mode)
+--foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
 
 -- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
 --
diff --git a/lib/Numeric/GSL/Vector.hs b/lib/Numeric/GSL/Vector.hs
index 0db2f84..9e06783 100644
--- a/lib/Numeric/GSL/Vector.hs
+++ b/lib/Numeric/GSL/Vector.hs
@@ -27,7 +27,7 @@ import Complex
 import Foreign
 import Foreign.C.Types(CInt)
 
-fromei = fromIntegral . fromei
+fromei x = fromIntegral (fromEnum x)
 
 data FunCodeV = Sin
               | Cos