* Optimised the SDF grammar.

This commit is contained in:
Eelco Dolstra 2004-01-29 14:24:53 +00:00
parent 3648d1c732
commit abd1878b26
2 changed files with 15 additions and 94 deletions

View file

@ -45,10 +45,10 @@ struct Cleanup : TermFun
return ATmake("Int(<int>)", n);
}
if (atMatch(m, e) >> "Bool" >> "true")
if (atMatch(m, e) >> "Var" >> "true")
return ATmake("Bool(True)");
if (atMatch(m, e) >> "Bool" >> "false")
if (atMatch(m, e) >> "Var" >> "false")
return ATmake("Bool(False)");
if (atMatch(m, e) >> "ExprNil")