diff --git a/sys/boot/ficl/ficl.c b/sys/boot/ficl/ficl.c index 7322b812576..6bf6503082e 100644 --- a/sys/boot/ficl/ficl.c +++ b/sys/boot/ficl/ficl.c @@ -220,12 +220,10 @@ int ficlExec(FICL_VM *pVM, char *pText) except = VM_OUTOFTEXT; break; -#ifdef TESTMAIN case VM_OUTOFTEXT: if ((pVM->state != COMPILE) && (pVM->sourceID.i == 0)) ficlTextOut(pVM, FICL_PROMPT, 0); break; -#endif case VM_USEREXIT: break; diff --git a/sys/boot/ficl/ficl.h b/sys/boot/ficl/ficl.h index 9fcce10ad33..693211902d3 100644 --- a/sys/boot/ficl/ficl.h +++ b/sys/boot/ficl/ficl.h @@ -206,8 +206,12 @@ struct ficl_dict; /* ** the Good Stuff starts here... */ -#define FICL_VER "2.02" -#define FICL_PROMPT "ok> " +#define FICL_VER "2.02" +#ifdef TESTMAIN +# define FICL_PROMPT "ok> " +#else +# define FICL_PROMPT "" +#endif /* ** ANS Forth requires false to be zero, and true to be the ones