Cyc_bignum_cmp Cyc_bignum_normalize Cyc_bit_set Cyc_bit_unset Cyc_div Cyc_div_op Cyc_expt Cyc_fast_div Cyc_fast_list_2 Cyc_fast_list_3 Cyc_fast_list_4 Cyc_fast_mul Cyc_fast_sub Cyc_fast_sum Cyc_fast_vector_2 Cyc_fast_vector_3 Cyc_fast_vector_4 Cyc_fast_vector_5 Cyc_if Cyc_int2bignum Cyc_integer2char Cyc_make_rectangular 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_args 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_exact_double_op_no_cps return_inexact_double_op return_inexact_double_op_no_cps return_inexact_double_or_cplx_op return_inexact_double_or_cplx_op_no_cps unbox_number

return_inexact_double_or_cplx_op_no_cps #define return_inexact_double_or_cplx_op_no_cps (   data,   ptr,   OP,   CPLX_OP,   z  ) Value: double unboxed; \ Cyc_check_num(data, z); \ if (obj_is_int(z)) { \ unboxed = OP(obj_obj2int(z)); \ } else if (type_of(z) == integer_tag) { \ unboxed = OP(((integer_type *)z)->value); \ } else if (type_of(z) == bignum_tag) { \ unboxed = OP(mp_get_double(&bignum_value(z))); \ } else if (type_of(z) == complex_num_tag) { \ double complex unboxed = CPLX_OP(complex_num_value(z)); \ assign_complex_num(ptr, unboxed); \ return ptr; \ } else { \ unboxed = OP(((double_type *)z)->value); \ } \ assign_double(ptr, unboxed); \ return ptr; Extract double or complex number and return it to caller