Simon's big boxy-type commit

[ghc-hetmet.git] / ghc / utils / unlit / unlit.c

diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c
index 769707e..3663021 100644 (file)
--- 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 */