/* chicken.internal#hash-symbol in k1031 */
static C_word f_2820(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_stack_overflow_check;{}
t3=C_eqp(t1,((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t3)){
return(C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2));}
else{
t4=C_slot(t1,C_fix(1));
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t6=C_block_size(t4);
t7=C_fixnum_difference(t6,C_fix(1));
t8=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_bytevector_hash(t4,C_fix(0),t7,((C_word*)t0)[4]));
return(C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2));}}