From 7c0ef81a9f1d5fa157e1f5fbc333a29793680796 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 6 Dec 1999 16:20:26 +0000
Subject: [PATCH] [project @ 1999-12-06 16:20:26 by sewardj] Only detect (# and
#) as special tokens when parsing interface files.
---
ghc/interpreter/input.c | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/ghc/interpreter/input.c b/ghc/interpreter/input.c
index d47f6846fc05..aeb47ef30f96 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 */
--
GitLab