From bf24b93818989bc10afb10554b236c16c47298c1 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 10 Nov 2009 02:26:20 -0500
Subject: Fixes to the value expression parser and evaluator

---
 src/parser.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/parser.cc')

diff --git a/src/parser.cc b/src/parser.cc
index d94cf37f..ef778411 100644
--- a/src/parser.cc
+++ b/src/parser.cc
@@ -82,7 +82,7 @@ expr_t::parser_t::parse_value_term(std::istream&        in,
 
     if (node->kind == op_t::O_CONS) {
       ptr_op_t prev(node);
-      node = new op_t(op_t::O_CONS);
+      node = new op_t(op_t::O_SEQ);
       node->set_left(prev);
     }
     break;
-- 
cgit v1.2.3