# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 787456656 0
# Node ID 70b04b2182163b9df76bb64a873fdd7545a8ebe5
# Parent  58037e770f671ee73f66c708582fe3291e67f2b6
(readevalloop): Ignore ^M here.

diff -r 58037e770f67 -r 70b04b218216 src/lread.c
--- a/src/lread.c	Thu Dec 15 01:56:13 1994 +0000
+++ b/src/lread.c	Thu Dec 15 01:57:36 1994 +0000
@@ -724,7 +724,10 @@
 	  continue;
 	}
       if (c < 0) break;
-      if (c == ' ' || c == '\t' || c == '\n' || c == '\f') continue;
+
+      /* Ignore whitespace here, so we can detect eof.  */
+      if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r')
+	continue;
 
       if (!NILP (Vpurify_flag) && c == '(')
 	{