more c-c fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@359 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-02-12 21:40:36 +00:00
parent 777817f8db
commit 401ad9c9fc
2 changed files with 3 additions and 1 deletions

View File

@@ -1072,7 +1072,6 @@ InteractSIGINT(int ch) {
if (PrologMode & ConsoleGetcMode) {
PrologMode |= AbortMode;
} else {
getc(stdin);
Error(PURE_ABORT, TermNil, "");
/* in case someone mangles the P register */
#if _MSC_VER || defined(__MINGW32__)
@@ -1235,6 +1234,7 @@ HandleSIGINT (int sig)
#if HAVE_LIBREADLINE
if (PrologMode & ConsoleGetcMode) {
fprintf(stderr, "Action (h for help): ");
rl_point = rl_end = 0;
#if HAVE_RL_SET_PROMPT
rl_set_prompt("Action (h for help): ");
#endif