Cyclone Scheme  0.28.0

◆ Cyc_check_num_args

#define Cyc_check_num_args (   data,
  fnc_name,
  num_args,
  args 
)
Value:
{ \
object l = Cyc_length(data, args); \
if (num_args > obj_obj2int(l)) { \
char buf[128]; \
snprintf(buf, 127, "Expected %d arguments to %s but received %ld", \
num_args, fnc_name, obj_obj2int(l)); \
Cyc_rt_raise_msg(data, buf); \
} \
}
obj_obj2int
#define obj_obj2int(x)
Definition: types.h:613
Cyc_length
object Cyc_length(void *d, object l)
Definition: runtime.c:2217