fix prompt in silent mode (obs from Tony Wilson)

This commit is contained in:
Vitor Santos Costa 2008-12-22 12:44:49 +00:00
parent 915ae47d18
commit 7598b56c38
1 changed files with 8 additions and 4 deletions

View File

@ -1550,12 +1550,16 @@ ConsoleGetc(int sno)
int ch;
restart:
/* keep the prompt around, just in case, but don't actually
show it in silent mode */
if (newline) {
char *cptr = Prompt, ch;
if (!yap_flags[QUIET_MODE_FLAG]) {
char *cptr = Prompt, ch;
/* use the default routine */
while ((ch = *cptr++) != '\0') {
Stream[StdErrStream].stream_putc(StdErrStream, ch);
/* use the default routine */
while ((ch = *cptr++) != '\0') {
Stream[StdErrStream].stream_putc(StdErrStream, ch);
}
}
strncpy (Prompt, RepAtom (*AtPrompt)->StrOfAE, MAX_PROMPT);
newline = FALSE;