/[guile]/guile/guile-core/libguile/continuations.c
ViewVC logotype

Diff of /guile/guile-core/libguile/continuations.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by mvo, Fri Nov 2 00:08:41 2001 UTC revision 1.42 by mvo, Sun Dec 16 21:58:02 2001 UTC
# Line 183  scm_make_continuation (int *first) Line 183  scm_make_continuation (int *first)
183      }      }
184    else    else
185      {      {
186          SCM ret = continuation->throw_value;
187        *first = 0;        *first = 0;
188        return continuation->throw_value;        continuation->throw_value = SCM_BOOL_F;
189          return ret;
190      }      }
191  #else /* !__ia64__ */  #else /* !__ia64__ */
192    if (setjmp (continuation->jmpbuf))    if (setjmp (continuation->jmpbuf))
193      {      {
194          SCM ret = continuation->throw_value;
195        *first = 0;        *first = 0;
196        return continuation->throw_value;        continuation->throw_value = SCM_BOOL_F;
197          return ret;
198      }      }
199    else    else
200      {      {

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26