From 3a0eb8a5f2d211f88439db811ed32e23a8ce9b0b Mon Sep 17 00:00:00 2001 From: jsdelfino Date: Wed, 6 Jan 2010 06:35:25 +0000 Subject: Minor cleanup, removed unnecessary references to GC pools. git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@896327 13f79535-47bb-0310-9956-ffa450edef68 --- sca-cpp/trunk/modules/server/mod-scheme.hpp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'sca-cpp/trunk/modules/server/mod-scheme.hpp') diff --git a/sca-cpp/trunk/modules/server/mod-scheme.hpp b/sca-cpp/trunk/modules/server/mod-scheme.hpp index 6325b6c719..d62578544f 100644 --- a/sca-cpp/trunk/modules/server/mod-scheme.hpp +++ b/sca-cpp/trunk/modules/server/mod-scheme.hpp @@ -61,9 +61,8 @@ struct evalImplementation { const value operator()(const list& params) const { const value expr = cons(car(params), append(scheme::quotedParameters(cdr(params)), px)); debug(expr, "modeval::scheme::evalImplementation::input"); - gc_pool pool(gc_current_pool()); - scheme::Env globalEnv = scheme::setupEnvironment(pool); - const value val = scheme::evalScript(expr, impl, globalEnv, pool); + scheme::Env env = scheme::setupEnvironment(); + const value val = scheme::evalScript(expr, impl, env); debug(val, "modeval::scheme::evalImplementation::result"); if (isNil(val)) return mklist(value(), string("Could not evaluate expression")); -- cgit v1.2.3