summaryrefslogtreecommitdiff
path: root/libguile/stackchk.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/stackchk.c')
-rw-r--r--libguile/stackchk.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/stackchk.c b/libguile/stackchk.c
index 2e22edbf7..b10373e7b 100644
--- a/libguile/stackchk.c
+++ b/libguile/stackchk.c
@@ -57,7 +57,11 @@ void
scm_report_stack_overflow ()
{
scm_stack_checking_enabled_p = 0;
- scm_wta (SCM_UNDEFINED, (char *) SCM_STACK_OVFLOW, NULL);
+ lgh_error (scm_stack_overflow_key,
+ NULL,
+ "Stack overflow",
+ SCM_BOOL_F,
+ SCM_BOOL_F);
}
#endif