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_dynthrow): Use >= instead of SCM_PTR_GE which

Browse source 
is now gone.  Reported by Andreas Vögele.
This commit is contained in:
Kevin Ryde 2004-04-30 23:34:01 +00:00
parent e68ef9c82b
commit 5afcf08bb2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/continuations.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000,2001,2004 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -266,7 +266,7 @@ scm_dynthrow (SCM cont, SCM val)
SCM_STACKITEM stack_top_element; SCM_STACKITEM stack_top_element;
#if SCM_STACK_GROWS_UP #if SCM_STACK_GROWS_UP
if (SCM_PTR_GE (dst + continuation->num_stack_items, &stack_top_element)) if (dst + continuation->num_stack_items >= &stack_top_element)
grow_stack (cont, val); grow_stack (cont, val);
#else #else
dst -= continuation->num_stack_items; dst -= continuation->num_stack_items;