Submit better fix to the prompt bug.

This commit is contained in:
Jordan K. Hubbard 1998-11-06 23:22:26 +00:00
parent f476d38a01
commit e1266cedab
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=40977
2 changed files with 3 additions and 3 deletions

View File

@ -221,8 +221,10 @@ int ficlExec(FICL_VM *pVM, char *pText)
break;
case VM_OUTOFTEXT:
#ifdef TESTMAIN
if ((pVM->state != COMPILE) && (pVM->sourceID.i == 0))
ficlTextOut(pVM, FICL_PROMPT, 0);
#endif
break;
case VM_USEREXIT:

View File

@ -207,10 +207,8 @@ struct ficl_dict;
** the Good Stuff starts here...
*/
#define FICL_VER "2.02"
#ifdef TESTMAIN
#ifndef FICL_PROMPT
# define FICL_PROMPT "ok> "
#else
# define FICL_PROMPT ""
#endif
/*