fix: prevent crashes in spawn by removing dynwind

engstrand-config · Jul 29, 2021 · 5c692b7 · 5c692b7
1 parent d1d42e8
commit 5c692b7
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 3 deletions.
diff --git a/guile-bindings.h b/guile-bindings.h
@@ -25,7 +25,6 @@ guile_proc_spawn(SCM args)
                 SCM arg_exp = get_list_item(args, i);
                 char *arg = scm_to_locale_string(arg_exp);
                 cmd_args[i] = arg;
-                scm_dynwind_free(arg);
         }
         cmd_args[i] = NULL;
         Arg a = {.v = cmd_args};

diff --git a/guile-utils.h b/guile-utils.h
@@ -146,7 +146,6 @@ guile_call(GuileProcType type, scm_t_bits *proc_ptr, void *data)
                 fprintf(stderr, "guile: could not call proc that is NULL");
                 return;
         }
-        scm_dynwind_begin(0);
         SCM proc = SCM_PACK_POINTER(proc_ptr);
         GuileProcData proc_data = {.proc = proc, .args = data};
         void *(*func)(void*) = NULL;
@@ -159,5 +158,4 @@ guile_call(GuileProcType type, scm_t_bits *proc_ptr, void *data)
                 func = &guile_call_action;
         }
         scm_c_with_continuation_barrier(func, &proc_data);
-        scm_dynwind_end();
 }