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:
parent
84924924e1
commit
8190a019a5
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=40949
@ -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;
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user