From 1335561f1f15fdb282ff51f64e0078c621692d83 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 1 Feb 2008 22:40:05 +0000
Subject: [PATCH] get DebugPlWrite back in

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2076 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/C/iopreds.c b/C/iopreds.c
index 938cd348f..4beab5e3b 100644
--- 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)
 {