[pure-lang-svn] SF.net SVN: pure-lang:[700] pure/trunk/runtime.cc

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

Revision: 700
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=700&view=rev
Author:   agraef
Date:     2008-09-04 16:11:47 +0000 (Thu, 04 Sep 2008)

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

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

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-09-04 16:10:09 UTC (rev 699)
+++ pure/trunk/runtime.cc	2008-09-04 16:11:47 UTC (rev 700)
@@ -1477,6 +1477,8 @@
 {
   char test;
   assert(x && y && x->refc > 0 && y->refc > 0);
+  // if the function in this call is a thunk, evaluate it now
+  if (x->tag == 0 && x->data.clos && x->data.clos->n == 0) pure_force(x);
   // travel down the spine, count arguments
   pure_expr *f = x, *f0, *ret;
   uint32_t n = 1;


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