From 3a0eb8a5f2d211f88439db811ed32e23a8ce9b0b Mon Sep 17 00:00:00 2001
From: jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68>
Date: Wed, 6 Jan 2010 06:35:25 +0000
Subject: [PATCH] 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/python/driver.hpp       | 14 ++--
 sca-cpp/trunk/modules/python/eval.hpp         | 10 +--
 sca-cpp/trunk/modules/python/python-shell.cpp |  4 +-
 sca-cpp/trunk/modules/python/python-test.cpp  | 18 ++---
 sca-cpp/trunk/modules/scheme/driver.hpp       | 12 ++--
 sca-cpp/trunk/modules/scheme/environment.hpp  | 12 ++--
 sca-cpp/trunk/modules/scheme/eval-shell.cpp   |  2 +-
 sca-cpp/trunk/modules/scheme/eval-test.cpp    | 38 +++++------
 sca-cpp/trunk/modules/scheme/eval.hpp         | 66 +++++++++----------
 sca-cpp/trunk/modules/server/mod-python.hpp   |  3 +-
 sca-cpp/trunk/modules/server/mod-scheme.hpp   |  5 +-
 .../test/store-script/store-script-test.cpp   | 10 +--
 12 files changed, 96 insertions(+), 98 deletions(-)

diff --git a/sca-cpp/trunk/modules/python/driver.hpp b/sca-cpp/trunk/modules/python/driver.hpp
index a7139889b9..dced219fa0 100644
--- a/sca-cpp/trunk/modules/python/driver.hpp
+++ b/sca-cpp/trunk/modules/python/driver.hpp
@@ -52,30 +52,30 @@ const bool userPrint(const value val, ostream& out) {
     return true;
 }
 
-const value evalDriverLoop(PyObject* script, istream& in, ostream& out, const gc_pool& pool) {
+const value evalDriverLoop(PyObject* script, istream& in, ostream& out) {
     promptForInput(evalInputPrompt, out);
     value input = readValue(in);
     if (isNil(input))
         return input;
-    const value output = evalScript(input, script, pool);
+    const value output = evalScript(input, script);
     announceOutput(evalOutputPrompt, out);
     userPrint(output, out);
-    return evalDriverLoop(script, in, out, pool);
+    return evalDriverLoop(script, in, out);
 }
 
-const bool evalDriverRun(istream& in, ostream& out, const gc_pool& pool) {
+const bool evalDriverRun(istream& in, ostream& out) {
     setupDisplay(out);
-    evalDriverLoop(builtin(pythonRuntime), in, out, pool);
+    evalDriverLoop(builtin(pythonRuntime), in, out);
     return true;
 }
 
-const bool evalDriverRun(const char* path, istream& in, ostream& out, const gc_pool& pool) {
+const bool evalDriverRun(const char* path, istream& in, ostream& out) {
     setupDisplay(out);
     ifstream is(path);
     failable<PyObject*> script = readScript(path, is);
     if (!hasContent(script))
         return true;
-    evalDriverLoop(content(script), in, out, pool);
+    evalDriverLoop(content(script), in, out);
     Py_DECREF(content(script));
     return true;
 }
diff --git a/sca-cpp/trunk/modules/python/eval.hpp b/sca-cpp/trunk/modules/python/eval.hpp
index 4631ed485d..b0d793418a 100644
--- a/sca-cpp/trunk/modules/python/eval.hpp
+++ b/sca-cpp/trunk/modules/python/eval.hpp
@@ -238,7 +238,7 @@ const failable<PyObject*> readScript(const string& path, istream& is) {
 /**
  * Evaluate an expression against a script provided as a python object.
  */
-const failable<value> evalScript(const value& expr, PyObject* script, unused const gc_pool& pool) {
+const failable<value> evalScript(const value& expr, PyObject* script) {
 
     // Get the requested function
     PyObject* func = PyObject_GetAttrString(script, c_str(car<value>(expr)));
@@ -268,18 +268,18 @@ const failable<value> evalScript(const value& expr, PyObject* script, unused con
 /**
  * Evaluate an expression against a script provided as an input stream.
  */
-const failable<value> evalScript(const value& expr, istream& is, unused const gc_pool& pool) {
+const failable<value> evalScript(const value& expr, istream& is) {
     failable<PyObject*> script = readScript("script", is);
     if (!hasContent(script))
         return mkfailure<value>(reason(script));
-    return evalScript(expr, content(script), pool);
+    return evalScript(expr, content(script));
 }
 
 /**
  * Evaluate an expression against the python builtin module, no script is provided.
  */
-const failable<value> evalExpr(const value& expr, const gc_pool& pool) {
-    return  evalScript(expr, builtin(pythonRuntime), pool);
+const failable<value> evalExpr(const value& expr) {
+    return  evalScript(expr, builtin(pythonRuntime));
 }
 
 }
diff --git a/sca-cpp/trunk/modules/python/python-shell.cpp b/sca-cpp/trunk/modules/python/python-shell.cpp
index 0525ea2f2c..862ca6062f 100644
--- a/sca-cpp/trunk/modules/python/python-shell.cpp
+++ b/sca-cpp/trunk/modules/python/python-shell.cpp
@@ -32,9 +32,9 @@
 int main(const int argc, char** argv) {
     tuscany::gc_scoped_pool pool;
     if (argc == 1) {
-        tuscany::python::evalDriverRun(tuscany::cin, tuscany::cout, pool);
+        tuscany::python::evalDriverRun(tuscany::cin, tuscany::cout);
         return 0;
     }
-    tuscany::python::evalDriverRun(argv[1], tuscany::cin, tuscany::cout, pool);
+    tuscany::python::evalDriverRun(argv[1], tuscany::cin, tuscany::cout);
     return 0;
 }
diff --git a/sca-cpp/trunk/modules/python/python-test.cpp b/sca-cpp/trunk/modules/python/python-test.cpp
index 612dc5b79d..fa3a221906 100644
--- a/sca-cpp/trunk/modules/python/python-test.cpp
+++ b/sca-cpp/trunk/modules/python/python-test.cpp
@@ -31,10 +31,10 @@
 namespace tuscany {
 namespace python {
 
-const value evalBuiltin(const string& py, const gc_pool& pool) {
+const value evalBuiltin(const string& py) {
     istringstream is(py);
     ostringstream os;
-    evalDriverRun(is, os, pool);
+    evalDriverRun(is, os);
     return str(os);
 }
 
@@ -43,7 +43,7 @@ const string testPythonPrint(
 
 bool testEval() {
     gc_scoped_pool pool;
-    assert(contains(evalBuiltin(testPythonPrint, pool), "testPrint ok"));
+    assert(contains(evalBuiltin(testPythonPrint), "testPrint ok"));
     return true;
 }
 
@@ -55,7 +55,7 @@ bool testEvalExpr() {
     gc_scoped_pool pool;
     {
         const value exp = mklist<value>("abs", -5);
-        const failable<value> r = evalExpr(exp, pool);
+        const failable<value> r = evalExpr(exp);
         assert(hasContent(r));
         assert(content(r) == value(5));
     }
@@ -64,7 +64,7 @@ bool testEvalExpr() {
         failable<PyObject*> script = readScript("script", is);
         assert(hasContent(script));
         const value exp = mklist<value>("add", 2, 3);
-        const failable<value> r = evalScript(exp, content(script), pool);
+        const failable<value> r = evalScript(exp, content(script));
         assert(hasContent(r));
         assert(content(r) == value(5));
     }
@@ -73,7 +73,7 @@ bool testEvalExpr() {
 
 bool testEvalRun() {
     gc_scoped_pool pool;
-    evalDriverRun(cin, cout, pool);
+    evalDriverRun(cin, cout);
     return true;
 }
 
@@ -99,7 +99,7 @@ bool testEvalLambda() {
 
     const value trl = mklist<value>("testReturnLambda");
     istringstream trlis(testReturnLambda);
-    const failable<value> trlv = evalScript(trl, trlis, pool);
+    const failable<value> trlv = evalScript(trl, trlis);
 
     assert(hasContent(trlv));
     assert(isLambda(content(trlv)));
@@ -108,13 +108,13 @@ bool testEvalLambda() {
 
     istringstream tclis(testCallLambda);
     const value tcl = mklist<value>("testCallLambda", content(trlv), 2, 3);
-    const failable<value> tclv = evalScript(tcl, tclis, pool);
+    const failable<value> tclv = evalScript(tcl, tclis);
     assert(hasContent(tclv));
     assert(content(tclv) == value(6));
 
     istringstream tcelis(testCallLambda);
     const value tcel = mklist<value>("testCallLambda", lambda<value(const list<value>&)>(mult), 3, 4);
-    const failable<value> tcelv = evalScript(tcel, tcelis, pool);
+    const failable<value> tcelv = evalScript(tcel, tcelis);
     assert(hasContent(tcelv));
     assert(content(tcelv) == value(12));
     return true;
diff --git a/sca-cpp/trunk/modules/scheme/driver.hpp b/sca-cpp/trunk/modules/scheme/driver.hpp
index 629a561453..112c226ed1 100644
--- a/sca-cpp/trunk/modules/scheme/driver.hpp
+++ b/sca-cpp/trunk/modules/scheme/driver.hpp
@@ -53,21 +53,21 @@ const bool userPrint(const value val, ostream& out) {
     return true;
 }
 
-const value evalDriverLoop(istream& in, ostream& out, Env& env, const gc_pool& pool) {
+const value evalDriverLoop(istream& in, ostream& out, Env& env) {
     promptForInput(evalInputPrompt, out);
     value input = readValue(in);
     if (isNil(input))
         return input;
-    const value output = evalExpr(input, env, pool);
+    const value output = evalExpr(input, env);
     announceOutput(evalOutputPrompt, out);
     userPrint(output, out);
-    return evalDriverLoop(in, out, env, pool);
+    return evalDriverLoop(in, out, env);
 }
 
-const bool evalDriverRun(istream& in, ostream& out, const gc_pool& pool) {
+const bool evalDriverRun(istream& in, ostream& out) {
     setupDisplay(out);
-    Env globalEnv = setupEnvironment(pool);
-    evalDriverLoop(in, out, globalEnv, pool);
+    Env env = setupEnvironment();
+    evalDriverLoop(in, out, env);
     return true;
 }
 
diff --git a/sca-cpp/trunk/modules/scheme/environment.hpp b/sca-cpp/trunk/modules/scheme/environment.hpp
index aa4517115d..bfb415a978 100644
--- a/sca-cpp/trunk/modules/scheme/environment.hpp
+++ b/sca-cpp/trunk/modules/scheme/environment.hpp
@@ -102,8 +102,8 @@ const Frame makeBinding(const Frame& frameSoFar, const list<value>& variables, c
     return makeBinding(newFrame, cdr(variables), cdr(values));
 }
 
-const gc_ptr<Frame> makeFrame(const list<value>& variables, const list<value> values, const gc_pool& pool) {
-    gc_ptr<Frame> frame = new (gc_new<Frame>(pool)) Frame();
+const gc_ptr<Frame> makeFrame(const list<value>& variables, const list<value> values) {
+    gc_ptr<Frame> frame = new (gc_new<Frame>()) Frame();
     *frame = value(makeBinding(cons(value(list<value>()), list<value>()), variables, values));
     return frame;
 }
@@ -141,12 +141,12 @@ const bool defineVariable(const value& var, const value& val, Env& env) {
     return true;
 }
 
-const Env extendEnvironment(const list<value>& vars, const list<value>& vals, const Env& baseEnv, const gc_pool& pool) {
-    return cons<value>(makeFrame(vars, vals, pool), baseEnv);
+const Env extendEnvironment(const list<value>& vars, const list<value>& vals, const Env& baseEnv) {
+    return cons<value>(makeFrame(vars, vals), baseEnv);
 }
 
-const Env setupEnvironment(const gc_pool& pool) {
-    Env env = extendEnvironment(primitiveProcedureNames(), primitiveProcedureObjects(), theEmptyEnvironment(), pool);
+const Env setupEnvironment() {
+    Env env = extendEnvironment(primitiveProcedureNames(), primitiveProcedureObjects(), theEmptyEnvironment());
     defineVariable(trueSymbol, true, env);
     defineVariable(falseSymbol, false, env);
     return env;
diff --git a/sca-cpp/trunk/modules/scheme/eval-shell.cpp b/sca-cpp/trunk/modules/scheme/eval-shell.cpp
index 58c0dd14bc..4aa67c2375 100644
--- a/sca-cpp/trunk/modules/scheme/eval-shell.cpp
+++ b/sca-cpp/trunk/modules/scheme/eval-shell.cpp
@@ -31,6 +31,6 @@
 
 int main() {
     tuscany::gc_scoped_pool pool;
-    tuscany::scheme::evalDriverRun(tuscany::cin, tuscany::cout, pool);
+    tuscany::scheme::evalDriverRun(tuscany::cin, tuscany::cout);
     return 0;
 }
diff --git a/sca-cpp/trunk/modules/scheme/eval-test.cpp b/sca-cpp/trunk/modules/scheme/eval-test.cpp
index cd90dc8863..7c4c0c69c4 100644
--- a/sca-cpp/trunk/modules/scheme/eval-test.cpp
+++ b/sca-cpp/trunk/modules/scheme/eval-test.cpp
@@ -34,7 +34,7 @@ namespace scheme {
 bool testEnv() {
     gc_scoped_pool pool;
     Env globalEnv = list<value>();
-    Env env = extendEnvironment(mklist<value>("a"), mklist<value>(1), globalEnv, pool);
+    Env env = extendEnvironment(mklist<value>("a"), mklist<value>(1), globalEnv);
     defineVariable("x", env, env);
     assert(lookupVariableValue(value("x"), env) == env);
     assert(lookupVariableValue("a", env) == value(1));
@@ -130,39 +130,39 @@ const string testSchemeForward(
   "(define sqrt (lambda (x) (* x x))) "
   "(testLambda)");
 
-const string evalOutput(const string& scm, const gc_pool& pool) {
+const string evalOutput(const string& scm) {
     istringstream is(scm);
     ostringstream os;
-    evalDriverRun(is, os, pool);
+    evalDriverRun(is, os);
     return str(os);
 }
 
 bool testEval() {
     gc_scoped_pool pool;
-    assert(contains(evalOutput(testSchemeNumber, pool), "testNumber ok"));
-    assert(contains(evalOutput(testSchemeString, pool), "testString ok"));
-    assert(contains(evalOutput(testSchemeDefinition, pool), "testDefinition ok"));
-    assert(contains(evalOutput(testSchemeIf, pool), "testIf ok"));
-    assert(contains(evalOutput(testSchemeCond, pool), "testCond ok"));
-    assert(contains(evalOutput(testSchemeBegin, pool), "testBegin1 ok"));
-    assert(contains(evalOutput(testSchemeBegin, pool), "testBegin2 ok"));
-    assert(contains(evalOutput(testSchemeLambda, pool), "testLambda ok"));
-    assert(contains(evalOutput(testSchemeForward, pool), "testForward ok"));
+    assert(contains(evalOutput(testSchemeNumber), "testNumber ok"));
+    assert(contains(evalOutput(testSchemeString), "testString ok"));
+    assert(contains(evalOutput(testSchemeDefinition), "testDefinition ok"));
+    assert(contains(evalOutput(testSchemeIf), "testIf ok"));
+    assert(contains(evalOutput(testSchemeCond), "testCond ok"));
+    assert(contains(evalOutput(testSchemeBegin), "testBegin1 ok"));
+    assert(contains(evalOutput(testSchemeBegin), "testBegin2 ok"));
+    assert(contains(evalOutput(testSchemeLambda), "testLambda ok"));
+    assert(contains(evalOutput(testSchemeForward), "testForward ok"));
     return true;
 }
 
 bool testEvalExpr() {
     gc_scoped_pool pool;
     const value exp = mklist<value>("+", 2, 3);
-    Env env = setupEnvironment(pool);
-    const value r = evalExpr(exp, env, pool);
+    Env env = setupEnvironment();
+    const value r = evalExpr(exp, env);
     assert(r == value(5));
     return true;
 }
 
 bool testEvalRun() {
     gc_scoped_pool pool;
-    evalDriverRun(cin, cout, pool);
+    evalDriverRun(cin, cout);
     return true;
 }
 
@@ -180,20 +180,20 @@ const string testCallLambda(
 
 bool testEvalLambda() {
     gc_scoped_pool pool;
-    Env env = setupEnvironment(pool);
+    Env env = setupEnvironment();
 
     const value trl = mklist<value>("testReturnLambda");
     istringstream trlis(testReturnLambda);
-    const value trlv = evalScript(trl, trlis, env, pool);
+    const value trlv = evalScript(trl, trlis, env);
 
     istringstream tclis(testCallLambda);
     const value tcl = cons<value>("testCallLambda", quotedParameters(mklist<value>(trlv, 2, 3)));
-    const value tclv = evalScript(tcl, tclis, env, pool);
+    const value tclv = evalScript(tcl, tclis, env);
     assert(tclv == value(6));
 
     istringstream tcelis(testCallLambda);
     const value tcel = cons<value>("testCallLambda", quotedParameters(mklist<value>(primitiveProcedure(mult), 3, 4)));
-    const value tcelv = evalScript(tcel, tcelis, env, pool);
+    const value tcelv = evalScript(tcel, tcelis, env);
     assert(tcelv == value(12));
     return true;
 }
diff --git a/sca-cpp/trunk/modules/scheme/eval.hpp b/sca-cpp/trunk/modules/scheme/eval.hpp
index 05293a53d3..34d1a7bc17 100644
--- a/sca-cpp/trunk/modules/scheme/eval.hpp
+++ b/sca-cpp/trunk/modules/scheme/eval.hpp
@@ -36,7 +36,7 @@
 namespace tuscany {
 namespace scheme {
 
-const value evalExpr(const value& exp, Env& env, const gc_pool& pool);
+const value evalExpr(const value& exp, Env& env);
 
 const value compoundProcedureSymbol("compound-procedure");
 const value procedureSymbol("procedure");
@@ -86,10 +86,10 @@ const list<value> operands(const value& exp) {
     return cdr((list<value> )exp);
 }
 
-const list<value> listOfValues(const list<value> exps, Env& env, const gc_pool& pool) {
+const list<value> listOfValues(const list<value> exps, Env& env) {
     if(isNil(exps))
         return list<value> ();
-    return cons(evalExpr(car(exps), env, pool), listOfValues(cdr(exps), env, pool));
+    return cons(evalExpr(car(exps), env), listOfValues(cdr(exps), env));
 }
 
 const value applyOperat(const value& exp) {
@@ -132,19 +132,19 @@ const value makeBegin(const list<value> seq) {
     return cons(beginSymbol, seq);
 }
 
-const value evalSequence(const list<value>& exps, Env& env, const gc_pool& pool) {
+const value evalSequence(const list<value>& exps, Env& env) {
     if(isLastExp(exps))
-        return evalExpr(firstExp(exps), env, pool);
-    evalExpr(firstExp(exps), env, pool);
-    return evalSequence(restExp(exps), env, pool);
+        return evalExpr(firstExp(exps), env);
+    evalExpr(firstExp(exps), env);
+    return evalSequence(restExp(exps), env);
 }
 
-const value applyProcedure(const value& procedure, list<value>& arguments, const gc_pool& pool) {
+const value applyProcedure(const value& procedure, list<value>& arguments) {
     if(isPrimitiveProcedure(procedure))
         return applyPrimitiveProcedure(procedure, arguments);
     if(isCompoundProcedure(procedure)) {
-        Env env = extendEnvironment(procedureParameters(procedure), arguments, procedureEnvironment(procedure), pool);
-        return evalSequence(procedureBody(procedure), env, pool);
+        Env env = extendEnvironment(procedureParameters(procedure), arguments, procedureEnvironment(procedure));
+        return evalSequence(procedureBody(procedure), env);
     }
     logStream() << "Unknown procedure type " << procedure << endl;
     return value();
@@ -218,41 +218,41 @@ value condToIf(const value& exp) {
     return expandClauses(condClauses(exp));
 }
 
-value evalIf(const value& exp, Env& env, const gc_pool& pool) {
-    if(isTrue(evalExpr(ifPredicate(exp), env, pool)))
-        return evalExpr(ifConsequent(exp), env, pool);
-    return evalExpr(ifAlternative(exp), env, pool);
+value evalIf(const value& exp, Env& env) {
+    if(isTrue(evalExpr(ifPredicate(exp), env)))
+        return evalExpr(ifConsequent(exp), env);
+    return evalExpr(ifAlternative(exp), env);
 }
 
-const value evalDefinition(const value& exp, Env& env, const gc_pool& pool) {
-    defineVariable(definitionVariable(exp), evalExpr(definitionValue(exp), env, pool), env);
+const value evalDefinition(const value& exp, Env& env) {
+    defineVariable(definitionVariable(exp), evalExpr(definitionValue(exp), env), env);
     return definitionVariable(exp);
 }
 
-const value evalExpr(const value& exp, Env& env, const gc_pool& pool) {
+const value evalExpr(const value& exp, Env& env) {
     if(isSelfEvaluating(exp))
         return exp;
     if(isQuoted(exp))
         return textOfQuotation(exp);
     if(isDefinition(exp))
-        return evalDefinition(exp, env, pool);
+        return evalDefinition(exp, env);
     if(isIf(exp))
-        return evalIf(exp, env, pool);
+        return evalIf(exp, env);
     if(isBegin(exp))
-        return evalSequence(beginActions(exp), env, pool);
+        return evalSequence(beginActions(exp), env);
     if(isCond(exp))
-        return evalExpr(condToIf(exp), env, pool);
+        return evalExpr(condToIf(exp), env);
     if(isLambdaExpr(exp))
         return makeProcedure(lambdaParameters(exp), lambdaBody(exp), env);
     if(isVariable(exp))
         return lookupVariableValue(exp, env);
     if(isApply(exp)) {
-        list<value> applyOperandValues = evalExpr(applyOperand(exp), env, pool);
-        return applyProcedure(evalExpr(applyOperat(exp), env, pool), applyOperandValues, pool);
+        list<value> applyOperandValues = evalExpr(applyOperand(exp), env);
+        return applyProcedure(evalExpr(applyOperat(exp), env), applyOperandValues);
     }
     if(isApplication(exp)) {
-        list<value> operandValues = listOfValues(operands(exp), env, pool);
-        return applyProcedure(evalExpr(operat(exp), env, pool), operandValues, pool);
+        list<value> operandValues = listOfValues(operands(exp), env);
+        return applyProcedure(evalExpr(operat(exp), env), operandValues);
     }
     logStream() << "Unknown expression type " << exp << endl;
     return value();
@@ -267,22 +267,22 @@ const list<value> quotedParameters(const list<value>& p) {
 /**
  * Evaluate an expression against a script provided as a list of values.
  */
-const value evalScriptLoop(const value& expr, const list<value>& script, scheme::Env& env, const gc_pool& pool) {
+const value evalScriptLoop(const value& expr, const list<value>& script, scheme::Env& env) {
     if (isNil(script))
-        return scheme::evalExpr(expr, env, pool);
-    scheme::evalExpr(car(script), env, pool);
-    return evalScriptLoop(expr, cdr(script), env, pool);
+        return scheme::evalExpr(expr, env);
+    scheme::evalExpr(car(script), env);
+    return evalScriptLoop(expr, cdr(script), env);
 }
 
-const value evalScript(const value& expr, const value& script, Env& env, const gc_pool& pool) {
-    return evalScriptLoop(expr, script, env, pool);
+const value evalScript(const value& expr, const value& script, Env& env) {
+    return evalScriptLoop(expr, script, env);
 }
 
 /**
  * Evaluate an expression against a script provided as an input stream.
  */
-const value evalScript(const value& expr, istream& is, Env& env, const gc_pool& pool) {
-    return evalScript(expr, readScript(is), env, pool);
+const value evalScript(const value& expr, istream& is, Env& env) {
+    return evalScript(expr, readScript(is), env);
 }
 
 }
diff --git a/sca-cpp/trunk/modules/server/mod-python.hpp b/sca-cpp/trunk/modules/server/mod-python.hpp
index 7b7b88f211..219613d1e3 100644
--- a/sca-cpp/trunk/modules/server/mod-python.hpp
+++ b/sca-cpp/trunk/modules/server/mod-python.hpp
@@ -52,8 +52,7 @@ struct evalImplementation {
     const value operator()(const list<value>& params) const {
         const value expr = append<value>(params, px);
         debug(expr, "modeval::python::evalImplementation::input");
-        gc_pool pool(gc_current_pool());
-        const failable<value> val = python::evalScript(expr, impl, pool);
+        const failable<value> val = python::evalScript(expr, impl);
         debug(val, "modeval::python::evalImplementation::result");
         if (!hasContent(val))
             return mklist<value>(value(), reason(val));
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<value>& params) const {
         const value expr = cons<value>(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>(value(), string("Could not evaluate expression"));
diff --git a/sca-cpp/trunk/test/store-script/store-script-test.cpp b/sca-cpp/trunk/test/store-script/store-script-test.cpp
index 33b87037f1..fe2a64e57f 100644
--- a/sca-cpp/trunk/test/store-script/store-script-test.cpp
+++ b/sca-cpp/trunk/test/store-script/store-script-test.cpp
@@ -41,7 +41,7 @@ bool testScript() {
 
     ifstream is("store-script-test.scm");
     ostringstream os;
-    scheme::evalDriverRun(is, os, pool);
+    scheme::evalDriverRun(is, os);
     assert(contains(str(os), "(\"Sample Feed\" \""));
     assert(contains(str(os), "\" (\"Item\" \""));
     assert(contains(str(os), "\" ((javaClass \"services.Item\") (name \"Orange\") (currencyCode \"USD\") (currencySymbol \"$\") (price 3.55))) (\"Item\" \""));
@@ -55,9 +55,9 @@ bool testEval() {
         ifstream is("store-script-test.scm");
         ostringstream os;
         scheme::setupDisplay(os);
-        scheme::Env globalEnv = scheme::setupEnvironment(pool);
+        scheme::Env globalEnv = scheme::setupEnvironment();
         const value exp(mklist<value>("storeui_service", string("getcatalog")));
-        const value val = scheme::evalScript(exp, is, globalEnv, pool);
+        const value val = scheme::evalScript(exp, is, globalEnv);
 
         ostringstream vs;
         vs << val;
@@ -70,9 +70,9 @@ bool testEval() {
         ostringstream os;
         scheme::setupDisplay(os);
 
-        scheme::Env globalEnv = scheme::setupEnvironment(pool);
+        scheme::Env globalEnv = scheme::setupEnvironment();
         const value exp(mklist<value>("storeui_service", string("gettotal")));
-        const value res = scheme::evalScript(exp, is, globalEnv, pool);
+        const value res = scheme::evalScript(exp, is, globalEnv);
 
         ostringstream rs;
         rs << res;