diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get rid of test message 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1065 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-05-14 16:34:49 +00:00
parent 0aa358a2b7
commit a21656eebd
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
console/yap.c
View File

@ -105,11 +105,13 @@ static FILE *bootfile;
static int eof_found = FALSE;
static int yap_lineno = 0;
#if USE_MYPUTC
static void
myputc (int ch)
{
putc(ch,stderr);
}
#endif
static int
mygetc (void)
@ -530,11 +532,6 @@ exec_top_level(int BootMode, YAP_init_args *iap)
*/
livegoal = YAP_FullLookupAtom("$live");
atomfalse = YAP_MkAtomTerm (YAP_FullLookupAtom("$false"));
{
YAP_Term t = YAP_ReadBuffer("a(1)",NULL);
if (t)
YAP_Write(t,myputc,0);
}
while (YAP_GetValue (livegoal) != atomfalse) {
YAP_Reset();
do_top_goal (YAP_MkAtomTerm (livegoal));