diff options
Diffstat (limited to 'ghc/interpreter/input.c')
| -rw-r--r-- | ghc/interpreter/input.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/ghc/interpreter/input.c b/ghc/interpreter/input.c index 555659aa82..6615e7751b 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.26 $ - * $Date: 2000/04/06 00:01:26 $ + * $Revision: 1.27 $ + * $Date: 2000/04/06 00:36:12 $ * ------------------------------------------------------------------------*/ #include "hugsbasictypes.h" @@ -165,7 +165,6 @@ static Cell varDot; /* (.) */ static Cell varHiding; /* hiding */ static Cell varQualified; /* qualified */ static Cell varAsMod; /* as */ -static Cell varPrivileged; /* privileged */ static List imps; /* List of imports to be chased */ @@ -1520,7 +1519,6 @@ static Int local yylex() { /* Read next input token ... */ if (it==textHiding) return HIDING; if (it==textQualified) return QUALIFIED; if (it==textAsMod) return ASMOD; - if (it==textPrivileged) return PRIVILEGED; if (it==textWildcard) return '_'; if (it==textAll && !haskell98) return ALL; #if IPARAM @@ -1715,7 +1713,6 @@ Int what; { textHiding = findText("hiding"); textQualified = findText("qualified"); textAsMod = findText("as"); - textPrivileged = findText("privileged"); textWildcard = findText("_"); textAll = findText("forall"); textUUAll = findText("__forall"); @@ -1727,7 +1724,6 @@ Int what; { varHiding = mkVar(textHiding); varQualified = mkVar(textQualified); varAsMod = mkVar(textAsMod); - varPrivileged = mkVar(textPrivileged); conMain = mkCon(findText("Main")); varMain = mkVar(findText("main")); evalDefaults = NIL; @@ -1776,7 +1772,6 @@ Int what; { mark(varHiding); mark(varQualified); mark(varAsMod); - mark(varPrivileged); mark(varMain); mark(conMain); mark(imps); |