~ chicken-core (chicken-5) 134752b2d2c44edf295c672f8d0b5cc71f1eb275

commit 134752b2d2c44edf295c672f8d0b5cc71f1eb275
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 14 11:04:15 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 14 11:04:15 2015 +0200

    cosmetic change in chicken.h

diff --git a/chicken.h b/chicken.h
index 2382525c..4c5a7b30 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1280,7 +1280,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 
 #ifdef HAVE_STATEMENT_EXPRESSIONS
 # define C_a_i(a, n)                    ({C_word *tmp = *a; *a += (n); tmp;})
-# define C_a_i_cons(a, n, car, cdr)     ({C_word tmp = (C_word)(*a); (*a)[0] = C_PAIR_TYPE | 2; *a += 3; \
+# define C_a_i_cons(a, n, car, cdr)     ({C_word tmp = (C_word)(*a); (*a)[0] = C_PAIR_TYPE | 2; *a += C_SIZEOF_PAIR; \
                                           C_set_block_item(tmp, 0, car); C_set_block_item(tmp, 1, cdr); tmp;})
 #else
 # define C_a_i_cons(a, n, car, cdr)     C_a_pair(a, car, cdr)