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

(scm_make_continuation): Do not retain the throw_value when the

Browse source 
continuation is invoked.
This commit is contained in:
Marius Vollmer 2001-12-16 21:58:02 +00:00
parent 762e289af5
commit 3c468478d8
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/continuations.c
View file

@ -183,14 +183,18 @@ scm_make_continuation (int *first)
} }
else else
{ {
SCM ret = continuation->throw_value;
*first = 0; *first = 0;
return continuation->throw_value; continuation->throw_value = SCM_BOOL_F;
return ret;
} }
#else /* !__ia64__ */ #else /* !__ia64__ */
if (setjmp (continuation->jmpbuf)) if (setjmp (continuation->jmpbuf))
{ {
SCM ret = continuation->throw_value;
*first = 0; *first = 0;
return continuation->throw_value; continuation->throw_value = SCM_BOOL_F;
return ret;
} }
else else
{ {