From: sewardj <unknown>
Date: Mon, 6 Dec 1999 16:20:26 +0000 (+0000)
Subject: [project @ 1999-12-06 16:20:26 by sewardj]
X-Git-Tag: Approximately_9120_patches~5424
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7c0ef81a9f1d5fa157e1f5fbc333a29793680796;p=ghc-hetmet.git

[project @ 1999-12-06 16:20:26 by sewardj]
Only detect (# and #) as special tokens when parsing interface files.
---

diff --git a/ghc/interpreter/input.c b/ghc/interpreter/input.c
index d47f684..aeb47ef 100644
--- a/ghc/interpreter/input.c
+++ b/ghc/interpreter/input.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: input.c,v $
- * $Revision: 1.16 $
- * $Date: 1999/12/03 12:39:39 $
+ * $Revision: 1.17 $
+ * $Date: 1999/12/06 16:20:26 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -1400,8 +1400,10 @@ static Int local yylex() {             /* Read next input token ...        */
      * Now try to identify token type:
      * --------------------------------------------------------------------*/
 
-    if (c0 == '(' && c1 == '#') { skip(); skip(); return UTL; };
-    if (c0 == '#' && c1 == ')') { skip(); skip(); return UTR; };
+    if (readingInterface) {
+       if (c0 == '(' && c1 == '#') { skip(); skip(); return UTL; };
+       if (c0 == '#' && c1 == ')') { skip(); skip(); return UTR; };
+    }
 
     switch (c0) {
         case EOF  : return 0;                   /* End of file/input       */