interface to rationals.

2011-02-27 02:13:25 -08:00
parent 53e8811077
commit 3c261305db
3 changed files with 68 additions and 1 deletions
--- a/packages/PLStream/pl-yap.c
+++ b/packages/PLStream/pl-yap.c
@@ -190,6 +190,12 @@ valueExpression(term_t t, Number r ARG_LD)
    YAP_BigNumOfTerm(t0, &r->value.mpz);
    return 1;
  }
+  if (YAP_IsRationalTerm(t0)) {
+    r->type = V_MPQ;
+    mpq_init(&r->value.mpq);
+    YAP_RationalOfTerm(t0, &r->value.mpq);
+    return 1;
+  }
 #endif
  return 0;
 }