-
/* --------------------------------------------------------------------------
* Input functions, lexical analysis parsing etc...
*
* included in the distribution.
*
* $RCSfile: input.c,v $
- * $Revision: 1.29 $
- * $Date: 2000/04/21 18:07:47 $
+ * $Revision: 1.30 $
+ * $Date: 2000/04/25 17:43:49 $
* ------------------------------------------------------------------------*/
#include "hugsbasictypes.h"
static Text textThen, textElse, textWhere, textLet, textIn;
static Text textInfix, textInfixl, textInfixr, textForeign, textNewtype;
static Text textDefault, textDeriving, textDo, textClass, textInstance;
+static Text textMdo;
#if IPARAM
static Text textWith, textDlet;
#endif
startToken();
while (c0!=EOF && !isIn(c0,ZPACE)) {
- if (c0=='"') {
+ if (c0=='"') {
skip();
while (c0!=EOF && c0!='\"') {
Cell c = readAChar(TRUE);
#if IPARAM
if (it==textWith && !haskell98) lookAhead(WITH);
if (it==textDlet && !haskell98) lookAhead(DLET);
+ if (it==textMdo && !haskell98) lookAhead(MDO);
#endif
if (it==textUUAll) return ALL;
if (it==textUUUsage) return UUUSAGE;
textDefault = findText("default");
textDeriving = findText("deriving");
textDo = findText("do");
+ textMdo = findText("mdo");
textClass = findText("class");
#if IPARAM
textWith = findText("with");