diff options
Diffstat (limited to 'src/fix-ng/parser.cc')
-rw-r--r-- | src/fix-ng/parser.cc | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/fix-ng/parser.cc b/src/fix-ng/parser.cc index e159262ca1cc..43678ec9719d 100644 --- a/src/fix-ng/parser.cc +++ b/src/fix-ng/parser.cc @@ -56,6 +56,13 @@ struct Cleanup : TermFun if (ATmatch(e, "Bool(\"false\")", &s)) return ATmake("Bool(False)"); + if (ATmatch(e, "ExprNil")) + return (ATerm) ATempty; + + ATerm e1, e2; + if (ATmatch(e, "ExprCons(<term>, [<list>])", &e1, &e2)) + return (ATerm) ATinsert((ATermList) e2, e1); + return e; } }; |