[pure-lang-svn] SF.net SVN: pure-lang:[810] pure/trunk/interpreter.cc
Status: Beta
Brought to you by:
agraef
|
From: <ag...@us...> - 2008-09-20 17:56:50
|
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.
|