From: simonmar <unknown>
Date: Mon, 22 Nov 2004 16:42:21 +0000 (+0000)
Subject: [project @ 2004-11-22 16:42:21 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1402
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8e2b3afd2197c7648a20752c7276646d2091a930;p=ghc-hetmet.git

[project @ 2004-11-22 16:42:21 by simonmar]
\r is whitespace
---

diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c
index 769707e..7ab2932 100644
--- a/ghc/utils/unlit/unlit.c
+++ b/ghc/utils/unlit/unlit.c
@@ -69,7 +69,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 */