From 6c021e7899077f12b2dba4415cb5f3f0bf583d63 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Wed, 22 Oct 2014 20:26:19 +0100
Subject: [PATCH] fix typos in gmp support routines, by Paulo Moura.

---
 C/gmp_support.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/C/gmp_support.c b/C/gmp_support.c
index bb28cd350..8ef03a115 100644
--- a/C/gmp_support.c
+++ b/C/gmp_support.c
@@ -778,7 +778,7 @@ Yap_gmp_rem_big_int(Term t, Int i2)
 {
   CELL *pt = RepAppl(t);
   if (pt[1] != BIG_INT) {
-    return Yap_ArithError(TYPE_ERROR_INTEGER, t, "mod/2");
+    return Yap_ArithError(TYPE_ERROR_INTEGER, t, "rem/2");
   } else {
     MP_INT *b = Yap_BigIntOfTerm(t);
     MP_INT new;
@@ -795,7 +795,7 @@ Yap_gmp_rem_int_big(Int i1, Term t)
   CACHE_REGS
   CELL *pt = RepAppl(t);
   if (pt[1] != BIG_INT) {
-    return Yap_ArithError(TYPE_ERROR_INTEGER, t, "mod/2");
+    return Yap_ArithError(TYPE_ERROR_INTEGER, t, "rem/2");
   } else {
     /* integer is much smaller */
     return MkIntegerTerm(i1);
@@ -829,7 +829,7 @@ Yap_gmp_gcd_int_big(Int i, Term t)
   CACHE_REGS
   CELL *pt = RepAppl(t);
   if (pt[1] != BIG_INT) {
-    return Yap_ArithError(TYPE_ERROR_INTEGER, t, "mod/2");
+    return Yap_ArithError(TYPE_ERROR_INTEGER, t, "gcd/2");
   } else {
     /* integer is much smaller */
     if (i > 0) {