[pure-lang-svn] SF.net SVN: pure-lang:[810] pure/trunk/interpreter.cc

[<ag...@us...>]

Revision: 810
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=810&view=rev
Author:   agraef
Date:     2008-09-20 17:56:26 +0000 (Sat, 20 Sep 2008)

Log Message:
-----------
Bugfixes.

Modified Paths:
--------------
    pure/trunk/interpreter.cc

Modified: pure/trunk/interpreter.cc
===================================================================
--- pure/trunk/interpreter.cc	2008-09-20 16:46:14 UTC (rev 809)
+++ pure/trunk/interpreter.cc	2008-09-20 17:56:26 UTC (rev 810)
@@ -2758,13 +2758,15 @@
 				 comp_clause_list::iterator cs,
 				 comp_clause_list::iterator end)
 {
-  if (cs == end)
-    return expr::cons(x, expr::nil());
-  else {
+  if (cs == end) {
+    exprll *xs = new exprll(1, exprl(1, x));
+    return expr(EXPR::MATRIX, xs);
+  } else {
     comp_clause& c = *cs;
     if (c.second.is_null()) {
       expr p = c.first;
-      return expr::cond(p, mkmatcomp_expr(x, n, ++cs, end), expr::nil());
+      return expr::cond(p, mkmatcomp_expr(x, n, ++cs, end),
+			expr(EXPR::MATRIX, new exprll));
     } else {
       expr pat = c.first, body = mkmatcomp_expr(x, n-1, ++cs, end),
 	arg = c.second;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.