fix support for comparing weird terms.

2011-02-02 19:37:11 +00:00
parent 83e918ac68
commit cbf6caddbd
4 changed files with 49 additions and 4 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -708,7 +708,7 @@ YAP_MkBlobTerm(unsigned int sz)
  }
  I = AbsAppl(H);
  H[0] = (CELL)FunctorBigInt;
-  H[1] = BIG_INT;
+  H[1] = ARRAY_INT;
  dst = (MP_INT *)(H+2);
  dst->_mp_size = 0L;
  dst->_mp_alloc = sz;