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

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

Revision: 686
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=686&view=rev
Author:   agraef
Date:     2008-09-03 04:48:36 +0000 (Wed, 03 Sep 2008)

Log Message:
-----------
Cosmetic changes.

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

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-09-01 23:30:49 UTC (rev 685)
+++ pure/trunk/runtime.cc	2008-09-03 04:48:36 UTC (rev 686)
@@ -250,8 +250,11 @@
     ret->env = 0;
   else {
     ret->env = new pure_expr*[clos->m];
-    for (size_t i = 0; i < clos->m; i++)
-      ret->env[i] = pure_new_internal(clos->env[i]);
+    for (size_t i = 0; i < clos->m; i++) {
+      ret->env[i] = clos->env[i];
+      assert(clos->env[i]->refc > 0);
+      clos->env[i]->refc++;
+    }
   }
   return ret;
 }


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