Cyc_bit_set Cyc_bit_unset Cyc_div Cyc_div_op Cyc_expt Cyc_fast_div Cyc_fast_mul Cyc_fast_sub Cyc_fast_sum Cyc_integer2char Cyc_mul Cyc_mul_op Cyc_num_cmp_va_list Cyc_num_eq Cyc_num_eq_op Cyc_num_fast_eq_op Cyc_num_fast_gt_op Cyc_num_fast_gte_op Cyc_num_fast_lt_op Cyc_num_fast_lte_op Cyc_num_gt Cyc_num_gt_op Cyc_num_gte Cyc_num_gte_op Cyc_num_lt Cyc_num_lt_op Cyc_num_lte Cyc_num_lte_op Cyc_num_op_va_list Cyc_number2string2 Cyc_remainder Cyc_sub Cyc_sub_op Cyc_sum Cyc_sum_op MRG32k3a return_exact_double_op return_inexact_double_op unbox_number

return_inexact_double_op #define return_inexact_double_op (   data,   cont,   OP,   z  ) Value: make_double(d, 0.0); \ Cyc_check_num(data, z); \ if (obj_is_int(z)) { \ d.value = OP(obj_obj2int(z)); \ } else if (type_of(z) == integer_tag) { \ d.value = OP(((integer_type *)z)->value); \ } else if (type_of(z) == bignum_tag) { \ d.value = OP(mp_get_double(&bignum_value(z))); \ } else { \ d.value = OP(((double_type *)z)->value); \ } \ return_closcall1(data, cont, &d)