From 159841a560b335e8f8f8a28bed28efa18175933f Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Wed, 20 Oct 1999 00:14:02 +0200
Subject: [PATCH] Fixed yet another reduce bug.

Rev: src/modules/Gmp/mpz_glue.c:1.47
---
 src/modules/Gmp/mpz_glue.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/modules/Gmp/mpz_glue.c b/src/modules/Gmp/mpz_glue.c
index 0deefbb8ce..a12d18ee7f 100644
--- a/src/modules/Gmp/mpz_glue.c
+++ b/src/modules/Gmp/mpz_glue.c
@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: mpz_glue.c,v 1.46 1999/10/16 10:50:34 noring Exp $");
+RCSID("$Id: mpz_glue.c,v 1.47 1999/10/19 22:14:02 noring Exp $");
 #include "gmp_machine.h"
 
 #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
@@ -750,9 +750,9 @@ static void mpzmod_next_prime(INT32 args)
   pop_n_elems(args);
   
   o = clone_object(mpzmod_program, 0);
-  PUSH_REDUCED(o);
-  
   mpz_next_prime(OBTOMPZ(o), THIS, count, limit);
+  
+  PUSH_REDUCED(o);
 }
 
 static void mpzmod_sgn(INT32 args)
-- 
GitLab