~ chicken-core (chicken-5) b5a227dcc2a950e6a2836681d18a4072f42bdad9


commit b5a227dcc2a950e6a2836681d18a4072f42bdad9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jul 18 23:09:47 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jul 18 23:09:47 2015 +0200

    dropped obsolete stack-modification macros

diff --git a/chicken.h b/chicken.h
index f05ae42d..5195d485 100644
--- a/chicken.h
+++ b/chicken.h
@@ -998,11 +998,9 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 #define C_make_header(type, size)  ((C_header)(((type) & C_HEADER_BITS_MASK) | ((size) & C_HEADER_SIZE_MASK)))
 #define C_symbol_value(x)          (C_block_item(x, 0))
 #define C_save(x)	           (*(--C_temporary_stack) = (C_word)(x))
-#define C_adjust_stack(n)          (C_temporary_stack -= (n))
 #define C_rescue(x, i)             (C_temporary_stack[ i ] = (x))
 #define C_restore                  (*(C_temporary_stack++))
 #define C_heaptop                  ((C_word **)(&C_fromspace_top))
-#define C_pick(n)                  (C_temporary_stack[ n ])
 #define C_drop(n)                  (C_temporary_stack += (n))
 #define C_alloc(n)                 ((C_word *)C_alloca((n) * sizeof(C_word)))
 #if defined (__llvm__) && defined (__GNUC__)
Trap