WinHugs, Bug quit
Neil Mitchell <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.hugs |
|---|---|
| Message-ID | <404396ef05090806096103881b__37920.808295212$1126185063$gmane$org@mail.gmail.com> |
Hi, Bug: if a blank command is entered on WinHugs, the program quits. This patch makes an EOF character be treated as no command on WinHugs. Thanks Neil _______________________________________________ Cvs-hugs mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-hugs
input.c.patch
(application/octet-stream, 731 B)
Index: src/input.c
===================================================================
RCS file: /cvs/hugs98/src/input.c,v
retrieving revision 1.87
diff -u -r1.87 input.c
--- src/input.c 1 Sep 2005 14:49:24 -0000 1.87
+++ src/input.c 8 Sep 2005 13:09:04 -0000
@@ -1218,7 +1218,11 @@
if (c0=='\n') /* look for blank command lines */
return NOCMD;
if (c0==EOF) /* look for end of input stream */
- return QUIT;
+#if HUGS_FOR_WINDOWS
+ return NOCMD;
+#else
+ return QUIT;
+#endif
if (c0==sys) { /* single character system escape */
skip();
return SYSTEM;