summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-04-23 14:04:23 +0200
committerAndy Wingo <wingo@pobox.com>2025-04-23 14:04:23 +0200
commit23d204b5a02b6cc11e7e735dc3882dc25f7b7292 (patch)
tree94a2c671d7eb49c3c15483cc4d5b27252f29d0f0 /libguile/eval.c
parent25db208603c86ed1f2c89f95ce3227b763d52679 (diff)
downloadguile-23d204b5a02b6cc11e7e735dc3882dc25f7b7292.tar.gz
Hook up gc_heap_set_allocation_failure_handler
* libguile/gc.h: * libguile/gc.c (scm_gc_after_nonlocal_exit): Give it a scm_thread argument, and cause GC with whippet API. (scm_init_gc): Set alloc failure handler using Whippet API instead of BDW. (scm_oom_fn): Add heap argumnet. * libguile/eval.c (eval): * libguile/exceptions.c (scm_c_with_exception_handler): * libguile/vm.c (scm_call_n): Adapt.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index db6d3a5e9..de62613b3 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1,4 +1,4 @@
-/* Copyright 1995-2019
+/* Copyright 1995-2019, 2025
Free Software Foundation, Inc.
This file is part of Guile.
@@ -463,7 +463,7 @@ eval (SCM x, SCM env)
{
/* The prompt exited nonlocally. */
t->vm.registers = prev_registers;
- scm_gc_after_nonlocal_exit ();
+ scm_gc_after_nonlocal_exit (t);
proc = handler;
args = scm_i_prompt_pop_abort_args_x (&t->vm, saved_stack_depth);
goto apply_proc;