[seed] [mpfr] Fixed various problems / cleaned up warnings

[Tim Horton <hortont src gnome org>]

commit 74260aa0f5bcb9bd888c600bfb617f832dbdb96a
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Sun Jul 5 17:20:50 2009 -0400

    [mpfr] Fixed various problems / cleaned up warnings

 modules/mpfr/seed-mpfr-arithmetic.c |    1 -
 modules/mpfr/seed-mpfr.c            |    6 ++----
 2 files changed, 2 insertions(+), 5 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-arithmetic.c b/modules/mpfr/seed-mpfr-arithmetic.c
index b49915d..4e747c3 100644
--- a/modules/mpfr/seed-mpfr-arithmetic.c
+++ b/modules/mpfr/seed-mpfr-arithmetic.c
@@ -13,7 +13,6 @@ SeedValue seed_mpfr_add (SeedContext ctx,
     mpfr_rnd_t rnd;
     mpfr_ptr rop, op1, op2;
     gdouble dop1, dop2;
-    SeedObject obj;
     gint ret;
     seed_mpfr_t argt1, argt2;
     /* only want 1 double argument. alternatively, could accept 2,
diff --git a/modules/mpfr/seed-mpfr.c b/modules/mpfr/seed-mpfr.c
index 9f87d97..305e12b 100644
--- a/modules/mpfr/seed-mpfr.c
+++ b/modules/mpfr/seed-mpfr.c
@@ -380,7 +380,6 @@ seed_mpfr_set (SeedContext ctx,
     mpfr_rnd_t rnd;
     mpfr_ptr rop, op;
     gdouble dop;
-    SeedObject obj;
     gint ret;
     gchar* str;
     seed_mpfr_t argt;
@@ -676,8 +675,8 @@ seed_static_function mpfr_funcs[] =
     {"fits_uintmax_p", seed_mpfr_fits_uintmax_p, 0},
     {"out_str", seed_mpfr_out_str, 0},
     {"pi", seed_mpfr_const_pi, 0},
-    {"euler", seed_mpfr_const_pi, 0},
-    {"catalan", seed_mpfr_const_pi, 0},
+    {"euler", seed_mpfr_const_euler, 0},
+    {"catalan", seed_mpfr_const_catalan, 0},
     {"free_cache", seed_mpfr_free_cache, 0},
     {NULL, NULL, 0}
 };
@@ -693,7 +692,6 @@ SeedObject
 seed_module_init(SeedEngine *local_eng)
 {
     SeedGlobalContext ctx = local_eng->context;
-    SeedObject ctx_constructor_rew;
     seed_class_definition mpfr_def = seed_empty_class;
     SeedObject mpfr_constructor, mpfr_constructor_set;