get DebugPlWrite back in

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2076 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-02-01 22:40:05 +00:00 · 2008-02-01 22:40:05 +00:00 · 1335561f1f
commit 1335561f1f
parent 51fd3b2dcc
1 changed files with 6 additions and 0 deletions
--- a/C/iopreds.c
+++ b/C/iopreds.c
@ -691,6 +691,12 @@ Yap_DebugPutc(int sno, wchar_t ch)
  return (putc(ch, Yap_stderr));
 }

+void
+Yap_DebugPlWrite(Term t)
+{
+  Yap_plwrite(t, Yap_DebugPutc, 0);
+}
+
 void 
 Yap_DebugErrorPutc(int c)
 {