support for passing priority as argument to write. (Ulrich's #45).

fixes on making write handle infinite loops
2009-05-22 13:24:27 -05:00
parent e1421f207e
commit 51e669dcfb
13 changed files with 154 additions and 77 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -1868,7 +1868,7 @@ YAP_Write(Term t, int (*myputc)(wchar_t), int flags)
  BACKUP_MACHINE_REGS();

  do_putcf = myputc;		/*  */
-  Yap_plwrite (t, do_yap_putc, flags);
+  Yap_plwrite (t, do_yap_putc, flags, 1200);

  RECOVER_MACHINE_REGS();
 }