bunch of fixes for YAP's own IO

2015-07-22 19:33:30 -05:00
parent 91d6faabc1
commit f3b84af062
20 changed files with 191 additions and 128 deletions
--- a/os/format.c
+++ b/os/format.c
@@ -935,6 +935,7 @@ if (IsVarTerm(tin)) {
  }
  UNLOCK(GLOBAL_Stream[output_stream].streamlock);
  out = Yap_Execute( Deref(ARG2) PASS_REGS);
+  LOCK(GLOBAL_Stream[output_stream].streamlock);
  LOCAL_c_output_stream = old_out;
  if (mem_stream) {
    Term tat;