/[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.44 by ttn, Thu Mar 14 03:47:41 2002 UTC revision 1.45 by hanwen, Sun Aug 4 00:17:18 2002 UTC
# Line 270  scm_dynthrow (SCM cont, SCM val) Line 270  scm_dynthrow (SCM cont, SCM val)
270      grow_stack (cont, val);      grow_stack (cont, val);
271  #else  #else
272    dst -= continuation->num_stack_items;    dst -= continuation->num_stack_items;
273    if (SCM_PTR_LE (dst, &stack_top_element))    if (dst <= &stack_top_element)
274      grow_stack (cont, val);      grow_stack (cont, val);
275  #endif /* def SCM_STACK_GROWS_UP */  #endif /* def SCM_STACK_GROWS_UP */
276    

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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