[seed] [mpfr] Made mpfr.zeta support mpfr_zeta_ui

[Tim Horton <hortont src gnome org>]

commit cb63a71c7e172ae696e47b257ecce9a58d0b0f4f
Author: Matt ARSENAULT <arsenm2 rpi edu>
Date:   Wed Jul 8 19:30:25 2009 -0400

    [mpfr] Made mpfr.zeta support mpfr_zeta_ui

 modules/mpfr/seed-mpfr-trig.c |   11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)
---
diff --git a/modules/mpfr/seed-mpfr-trig.c b/modules/mpfr/seed-mpfr-trig.c
index 4829046..7169fe7 100644
--- a/modules/mpfr/seed-mpfr-trig.c
+++ b/modules/mpfr/seed-mpfr-trig.c
@@ -802,6 +802,7 @@ SeedValue seed_mpfr_zeta (SeedContext ctx,
     mpfr_rnd_t rnd;
     mpfr_ptr rop, op;
     gint ret;
+    gulong uiop;
 
     CHECK_ARG_COUNT("mpfr.zeta", 2);
 
@@ -811,14 +812,18 @@ SeedValue seed_mpfr_zeta (SeedContext ctx,
     if ( seed_value_is_object_of_class(ctx, args[0], mpfr_class) )
     {
         op = seed_object_get_private(args[0]);
+        ret = mpfr_zeta(rop, op, rnd);
+    }
+    else if ( seed_value_is_number(ctx, args[0]) )
+    {
+        uiop = seed_value_to_ulong(ctx, args[0], exception);
+        ret = mpfr_zeta_ui(rop, uiop, rnd);
     }
     else
     {
-        TYPE_EXCEPTION("mpfr.zeta", "mpfr_t");
+        TYPE_EXCEPTION("mpfr.zeta", "mpfr_t or unsigned int");
     }
 
-    ret = mpfr_zeta(rop, op, rnd);
-
     return seed_value_from_int(ctx, ret, exception);
 }