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

fixes on making write handle infinite loops

C/parser.c

@@ -705,7 +705,7 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
 #ifdef DEBUG
   if (Yap_Option['p' - 'a' + 1]) {
     Yap_DebugPutc(Yap_c_error_stream,'[');
-    Yap_plwrite (t, Yap_DebugPutc, 0);
+    Yap_DebugPlWrite(t);
     Yap_DebugPutc(Yap_c_error_stream,']');
     Yap_DebugPutc(Yap_c_error_stream,'\n');
   }