X-Git-Url: https://code.kerkeslager.com/?p=fur;a=blobdiff_plain;f=templates%2Fprogram.c;h=f2fc244f09b8aa197a53f3916b966200862ede80;hp=6b4988176b6ccfa8d0bac91bc15b4b49267da24f;hb=1f2895250c61aeb81c0f0ba7efed156c9386dfac;hpb=3eef27fe9f504e67ec74e330587007eb7b28946f

diff --git a/templates/program.c b/templates/program.c
index 6b49881..f2fc244 100644
--- a/templates/program.c
+++ b/templates/program.c
@@ -522,6 +522,13 @@ Environment* EnvironmentPool_allocate(EnvironmentPool* self)
   return EnvironmentPool_allocate(previous->overflow);
 }
 
+Environment* Environment_construct(EnvironmentPool* environmentPool, Environment* parent)
+{
+  Environment* environment = EnvironmentPool_allocate(environmentPool);
+  Environment_initialize(environment, parent);
+  return environment;
+}
+
 Object integerLiteral(int32_t literal)
 {
   Object result;