SchemeObject* SchemeObjectCreator::make_environment() {
Environment::Ptr env = std::make_shared<Environment>();
setup_environment(env.get());
SchemeObject* obj = new SchemeEnvironment(env);
SchemeGarbageCollector::the_gc().add(obj);
return obj;
}
Fork::Fork(const Environment::Ptr parentEnv_, const RaveInstancePtr rave_, BulletInstance::Ptr bullet, OSGInstance::Ptr osg) :
parentEnv(parentEnv_.get()), env(new Environment(bullet, osg)),
rave(rave_) {
copyObjects();
}