X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Funlit%2Funlit.c;h=366302156a4236c2f9de6caa16a69bc6e9a84f36;hb=ac10f8408520a30e8437496d320b8b86afda2e8f;hp=769707e257291e0ed4e406430edde14081efb259;hpb=1f6224200642990516e6c8c72b819e11424a3782;p=ghc-hetmet.git

diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c
index 769707e..3663021 100644
--- a/ghc/utils/unlit/unlit.c
+++ b/ghc/utils/unlit/unlit.c
@@ -40,6 +40,7 @@
  * And \begin{pseudocode} ... \end{pseudocode}.  -- LA
  */
 
+#include <string.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <ctype.h>
@@ -69,7 +70,7 @@
 #endif
 
 typedef enum { START, BLANK, TEXT, DEFN, BEGIN, /*PSEUDO,*/ END, HASH, SHEBANG } line;
-#define isWhitespace(c)  (c==' '  || c=='\t')
+#define isWhitespace(c)  (c==' '  || c=='\t' || c=='\r')
 #define isLineTerm(c)    (c=='\n' || c==EOF)
 
 static int noisy  = 1;   /* 0 => keep quiet about errors, 1 => report errors */