* stacks.c: replace usage of STACK_GROWS_UP with
authorRob Browning <rlb@defaultvalue.org>
Wed, 26 Mar 2003 00:00:12 +0000 (00:00 +0000)
committerRob Browning <rlb@defaultvalue.org>
Wed, 26 Mar 2003 00:00:12 +0000 (00:00 +0000)
SCM_STACK_GROWS_UP.

libguile/stacks.c

index 5765a22..ae9d16e 100644 (file)
@@ -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);