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 eof_found = FALSE;
static int yap_lineno = 0; static int yap_lineno = 0;
#if USE_MYPUTC
static void static void
myputc (int ch) myputc (int ch)
{ {
putc(ch,stderr); putc(ch,stderr);
} }
#endif
static int static int
mygetc (void) mygetc (void)
@ -530,11 +532,6 @@ exec_top_level(int BootMode, YAP_init_args *iap)
*/ */
livegoal = YAP_FullLookupAtom("$live"); livegoal = YAP_FullLookupAtom("$live");
atomfalse = YAP_MkAtomTerm (YAP_FullLookupAtom("$false")); 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) { while (YAP_GetValue (livegoal) != atomfalse) {
YAP_Reset(); YAP_Reset();
do_top_goal (YAP_MkAtomTerm (livegoal)); do_top_goal (YAP_MkAtomTerm (livegoal));