blob: 189ad75de6ae16189fab1e104a33c257963f0890 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
--- src/numbers.c.orig Sat May 31 17:50:08 2003
+++ src/numbers.c Sat May 31 18:15:24 2003
@@ -2696,13 +2696,14 @@
#ifdef HAVE_GMP
else
{
- rep_number_q *q;
+ double x, y;
+ rep_number_z *z;
- q = make_number (rep_NUMBER_RATIONAL);
- mpq_init (q->q);
- mpq_set_d (q->q, rep_get_float (arg));
+ rationalize (arg, &x, &y);
+ z = make_number (rep_NUMBER_BIGNUM);
+ mpz_init_set_d (z->z, (x / y));
- return maybe_demote (rep_VAL (q));
+ return maybe_demote (rep_VAL (z));
}
#else
else
|
