X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Finpt-pgm.c;h=afeb832643f4cda772964aad6707652e07a9a0fe;hb=54a2df235d08f661a3122f5b40361258d35014c8;hp=ccd53be04e4199913635d1568aa4af774459e36f;hpb=979d5363ef9b22cd865bba3b540d5f4974844f7e;p=pspp

diff --git a/src/language/data-io/inpt-pgm.c b/src/language/data-io/inpt-pgm.c
index ccd53be04e..afeb832643 100644
--- a/src/language/data-io/inpt-pgm.c
+++ b/src/language/data-io/inpt-pgm.c
@@ -112,7 +112,9 @@ cmd_input_program (struct lexer *lexer, struct dataset *ds)
           emit_END_CASE (ds, inp);
           saw_END_CASE = true;
         }
-      else if (cmd_result_is_failure (result) && result != CMD_FAILURE)
+      else if (cmd_result_is_failure (result)
+               && result != CMD_FAILURE
+               && lex_get_error_mode (lexer) != LEX_ERROR_INTERACTIVE)
         {
           if (result == CMD_EOF)
             msg (SE, _("Unexpected end-of-file within INPUT PROGRAM."));