From e2655aa332a33b56d9168928511a598fc9b0c1e6 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Mon, 3 Nov 2003 11:59:35 +0000
Subject: * Shorter list syntax ([a b c] instead of [a, b, c]).

---
 src/fix-ng/parser.cc | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/fix-ng/parser.cc')

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;
     }
 };
-- 
cgit 1.4.1