(scm_make_continuation): Do not retain the throw_value when the

continuation is invoked.

diff --git a/libguile/continuations.c b/libguile/continuations.c
index 769bbfc..cd89110 100644 (file)
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -183,14 +183,18 @@ scm_make_continuation (int *first)
     }
   else
     {
+      SCM ret = continuation->throw_value;
       *first = 0;
-      return continuation->throw_value;
+      continuation->throw_value = SCM_BOOL_F;
+      return ret;
     }
 #else /* !__ia64__ */
   if (setjmp (continuation->jmpbuf))
     {
+      SCM ret = continuation->throw_value;
       *first = 0;
-      return continuation->throw_value;
+      continuation->throw_value = SCM_BOOL_F;
+      return ret;
     }
   else
     {