[pure-lang-svn] SF.net SVN: pure-lang:[686] pure/trunk/runtime.cc
Status: Beta
Brought to you by:
agraef
|
From: <ag...@us...> - 2008-09-03 04:48:26
|
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.
|