Don't not print the prompt string; not doing this has funny side-effects.

Make the prompt an empty string instead.
This commit is contained in:
Mike Smith 1998-11-06 03:47:08 +00:00
parent 84924924e1
commit 8190a019a5
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=40949
2 changed files with 6 additions and 4 deletions

View File

@ -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;

View File

@ -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