mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* eval.c (scm_force): Assert that x is SCM_NIMP to fix segv when

Browse source 
(force 9) is tried.  (Thanks to Karl M. Hegbloom.)
This commit is contained in:
Jim Blandy 1998-09-26 09:57:37 +00:00
parent 6925bc4ed9
commit eed6e03e7e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

@ -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);