2 Object user${{name}}$implementation(EnvironmentPool* environmentPool, Environment* environment, size_t argc, Stack* parentStack, jmp_buf parentJump)
4 environment = Environment_construct(environmentPool, environment);
6 Stack* stack = Stack_construct();
11 fprintf(stderr, "\tin {{name}}\n");
13 while(Stack_any(stack))
15 Object item = Stack_pop(stack);
16 Object_deinitialize(&item);
18 Environment_setLive(environment, false);
20 Stack_destruct(stack);
22 longjmp(parentJump, 1);
25 Object result = builtin$nil;
27 {% for argument_name in argument_name_list|reverse %}
28 Environment_set(environment, "{{ argument_name }}", Stack_pop(parentStack));
31 {% for statement in statement_list %}
35 // TODO Set the environment back to the parent environment
36 Environment_setLive(environment, false);
38 Stack_destruct(stack);