diff -rN old-chicken/c-backend.scm new-chicken/c-backend.scm 702c702 < [(symbol? lit) 9] ; size of symbol, and possibly a bucket --- > [(symbol? lit) 10] ; size of symbol, and possibly a bucket diff -rN old-chicken/chicken.h new-chicken/chicken.h 359c359 < #define C_SIZEOF_SYMBOL 3 --- > #define C_SIZEOF_SYMBOL 4 diff -rN old-chicken/runtime.c new-chicken/runtime.c 1907,1908c1907,1908 < p += 3; < ((C_SCHEME_BLOCK *)sym)->header = C_SYMBOL_TYPE | 2; --- > p += C_SIZEOF_SYMBOL; > ((C_SCHEME_BLOCK *)sym)->header = C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1); 1910a1911 > C_set_block_item(sym, 2, C_SCHEME_UNDEFINED); 1969c1970 < node->header = C_PAIR_TYPE | 2; --- > node->header = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); 2191c2192 < *(p++) = C_PAIR_TYPE | 2; --- > *(p++) = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); 2205c2206 < *(p++) = C_PAIR_TYPE | 2; --- > *(p++) = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); 7454c7455 < C_word ab[ 3 ], *a = ab, --- > C_word ab[ C_SIZEOF_SYMBOL ], *a = ab, 7457c7458 < *(a++) = C_SYMBOL_TYPE | 2; --- > *(a++) = C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1); 7459c7460,7461 < *a = name; --- > *(a++) = name; > *(a++) = C_SCHEME_UNDEFINED;