fix bug in growstack

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1718 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-11-14 11:42:26 +00:00
parent feca28c235
commit e112ce1a8a
5 changed files with 53 additions and 10 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -337,10 +337,10 @@ write_var(CELL *t,  struct write_globs *wglb)
      Yap_Portray_delays = TRUE;
      return;
    }
-#endif
 #endif
    wrputc('D', wglb->writech);
    wrputn((Int) ((attvar_record *)H0-(attvar_record *)t),wglb->writech);
+#endif
  } else {
    wrputn(((Int) (t- H0)),wglb->writech);
  }