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

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

Revision: 678
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=678&view=rev
Author:   agraef
Date:     2008-09-01 14:37:04 +0000 (Mon, 01 Sep 2008)

Log Message:
-----------
Add an assertion.

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

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-09-01 13:31:10 UTC (rev 677)
+++ pure/trunk/runtime.cc	2008-09-01 14:37:04 UTC (rev 678)
@@ -1385,6 +1385,7 @@
   assert(x);
   if (x->tag == 0 && x->data.clos && x->data.clos->n == 0) {
     // parameterless anonymous closure (thunk)
+    assert(x->data.clos->thunked);
     pure_expr *ret;
     interpreter& interp = *interpreter::g_interp;
     void *fp = x->data.clos->fp;


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