Cyclone Scheme  0.28.0

◆ return_exact_double_op

#define return_exact_double_op (   data,
  cont,
  OP,
 
)
Value:
int i = 0; \
Cyc_check_num(data, z); \
if (obj_is_int(z)) { \
i = obj_obj2int(z); \
} else if (type_of(z) == integer_tag) { \
i = (int)OP(((integer_type *)z)->value); \
} else if (type_of(z) == bignum_tag) { \
return_closcall1(data, cont, z); \
} else { \
i = (int)OP(((double_type *)z)->value); \
} \
return_closcall1(data, cont, obj_int2obj(i))

Extract exact or double number and pass it in a call to continuation cont

integer_tag
@ integer_tag
Definition: types.h:61
obj_obj2int
#define obj_obj2int(x)
Definition: types.h:613
obj_is_int
#define obj_is_int(x)
Definition: types.h:607
integer_type
Deprecated - boxed integers.
Definition: types.h:808
type_of
#define type_of(obj)
Definition: types.h:92
bignum_tag
@ bignum_tag
Definition: types.h:62
obj_int2obj
#define obj_int2obj(c)
Definition: types.h:619
double_type
Double-precision floating point type, also known as a flonum.
Definition: types.h:877