From 697f90d671aa02cc2aa24d3b7ca814eeae478e9b Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Wed, 26 Mar 2003 00:00:12 +0000 Subject: [PATCH] * stacks.c: replace usage of STACK_GROWS_UP with SCM_STACK_GROWS_UP. --- libguile/stacks.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libguile/stacks.c b/libguile/stacks.c index 5765a2286..ae9d16ec8 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -464,7 +464,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1, { offset = ((SCM_STACKITEM *) ((char *) SCM_CONTREGS (obj) + sizeof (scm_t_contregs)) - SCM_BASE (obj)); -#ifndef STACK_GROWS_UP +#ifndef SCM_STACK_GROWS_UP offset += SCM_CONTINUATION_LENGTH (obj); #endif dframe = RELOC_FRAME (SCM_DFRAME (obj), offset); @@ -548,7 +548,7 @@ SCM_DEFINE (scm_stack_id, "stack-id", 1, 0, 0, { offset = ((SCM_STACKITEM *) ((char *) SCM_CONTREGS (stack) + sizeof (scm_t_contregs)) - SCM_BASE (stack)); -#ifndef STACK_GROWS_UP +#ifndef SCM_STACK_GROWS_UP offset += SCM_CONTINUATION_LENGTH (stack); #endif dframe = RELOC_FRAME (SCM_DFRAME (stack), offset); @@ -627,7 +627,7 @@ SCM_DEFINE (scm_last_stack_frame, "last-stack-frame", 1, 0, 0, { offset = ((SCM_STACKITEM *) ((char *) SCM_CONTREGS (obj) + sizeof (scm_t_contregs)) - SCM_BASE (obj)); -#ifndef STACK_GROWS_UP +#ifndef SCM_STACK_GROWS_UP offset += SCM_CONTINUATION_LENGTH (obj); #endif dframe = RELOC_FRAME (SCM_DFRAME (obj), offset);