fix incompatibilities with string patch

2011-06-21 16:53:17 +01:00
parent f2072e14b3
commit e1fdbd7537
3 changed files with 3 additions and 3 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -197,8 +197,8 @@ write_mpint(MP_INT *big, wrf writewch) {
 static void 
 writebig(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb, struct rewind_term *rwt)
 {
-#ifdef USE_GMP
  CELL *pt = RepAppl(t)+1;
+#ifdef USE_GMP
  if (pt[0] == BIG_INT) 
  {
    MP_INT *big = Yap_BigIntOfTerm(t);