get DebugPlWrite back in

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2076 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-02-01 22:40:05 +00:00
parent 51fd3b2dcc
commit 1335561f1f

View File

@ -691,6 +691,12 @@ Yap_DebugPutc(int sno, wchar_t ch)
return (putc(ch, Yap_stderr)); return (putc(ch, Yap_stderr));
} }
void
Yap_DebugPlWrite(Term t)
{
Yap_plwrite(t, Yap_DebugPutc, 0);
}
void void
Yap_DebugErrorPutc(int c) Yap_DebugErrorPutc(int c)
{ {