X-Git-Url: https://code.kerkeslager.com/?a=blobdiff_plain;f=templates%2Ffunction_definition.c;h=9ebac36d4213e60de2d5b66b54a005864c6a3453;hb=4c47216656579a0e5b81cc3fbab17362ffde3e94;hp=3120fb96d9a17e6d26866ed40f712e3fe7e69695;hpb=3da330f045ed7fcb66ee9d9447de320680263699;p=fur

diff --git a/templates/function_definition.c b/templates/function_definition.c
index 3120fb9..9ebac36 100644
--- a/templates/function_definition.c
+++ b/templates/function_definition.c
@@ -1,21 +1,38 @@
 
-Object user${{name}}$implementation(EnvironmentPool* environmentPool, Environment* parent, size_t argc, Object* args)
+Object user${{name}}$implementation(EnvironmentPool* environmentPool, Environment* parent, size_t argc, Stack* parentStack, jmp_buf parent_jump)
 {
-  assert(argc == {{ argument_name_list|length }});
-
   Environment* environment = EnvironmentPool_allocate(environmentPool);
   Environment_initialize(environment, parent);
 
-  {% for argument_name in argument_name_list %}
-  Environment_set(environment, "{{ argument_name }}", args[{{ loop.index0 }}]);
+  Stack stackMemory;
+  Stack* stack = &stackMemory;
+  Stack_initialize(stack);
+
+  jmp_buf jump;
+  if(setjmp(jump) != 0)
+  {
+    fprintf(stderr, "\tin {{name}}\n");
+
+    while(Stack_any(stack))
+    {
+      Object item = Stack_pop(stack);
+      Object_deinitialize(&item);
+    }
+    Environment_setLive(environment, false);
+
+    longjmp(parent_jump, 1);
+  }
+
+  Object result = builtin$nil;
+
+  {% for argument_name in argument_name_list|reverse %}
+  Environment_set(environment, "{{ argument_name }}", Stack_pop(parentStack));
   {% endfor %}
 
-  {% for statement in statement_list[:-1] %}
+  {% for statement in statement_list %}
   {{ statement }}
   {% endfor %}
 
-  Object result = {{ statement_list[-1] }}
-
   Environment_setLive(environment, false);
   return result;
 }