From a21656eebdc238c64385d61fbcdc89708411ff1e Mon Sep 17 00:00:00 2001 From: vsc Date: Fri, 14 May 2004 16:34:49 +0000 Subject: [PATCH] get rid of test message git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1065 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- console/yap.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/console/yap.c b/console/yap.c index d15f89901..bf38c386c 100644 --- a/console/yap.c +++ b/console/yap.c @@ -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));