From eed6e03e7eb6ae6fb7eb0aa3353f1667411f624a Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 26 Sep 1998 09:57:37 +0000 Subject: [PATCH] * eval.c (scm_force): Assert that x is SCM_NIMP to fix segv when (force 9) is tried. (Thanks to Karl M. Hegbloom.) --- libguile/eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/eval.c b/libguile/eval.c index 675e42b8f..6df1c42c2 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -3343,7 +3343,8 @@ SCM scm_force (x) SCM x; { - SCM_ASSERT ((SCM_TYP16 (x) == scm_tc16_promise), x, SCM_ARG1, s_force); + SCM_ASSERT (SCM_NIMP(x) && SCM_TYP16 (x) == scm_tc16_promise, + x, SCM_ARG1, s_force); if (!((1L << 16) & SCM_CAR (x))) { SCM ans = scm_apply (SCM_CDR (x), SCM_EOL, SCM_EOL);