~ chicken-core (chicken-5) 8783c0acce3a56e2b50834f93935b661ea387634

commit 8783c0acce3a56e2b50834f93935b661ea387634
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Nov 8 17:21:18 2013 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Fri Nov 8 17:21:18 2013 +0100

    Use C_block_item(bucket,[01]) instead of C_u_i_c[ad]r in C_enumerate_symbols.
    
    It may be obsolete, but it's still broken, and the apropos egg still uses it

diff --git a/runtime.c b/runtime.c
index ed7bab3f..bd676d16 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1017,9 +1017,9 @@ C_regparm C_word C_enumerate_symbols(C_SYMBOL_TABLE *stable, C_word pos)
     else bucket = stable->table[ i ];
   }
 
-  sym = C_u_i_car(bucket);
+  sym = C_block_item(bucket, 0);
   C_set_block_item(pos, 0, C_fix(i));
-  C_mutate2(&C_u_i_cdr(pos), C_u_i_cdr(bucket));
+  C_mutate2(&C_u_i_cdr(pos), C_block_item(bucket, 1));
   return sym;
 }