Cyclone Scheme  0.4

◆ Cyc_bytevector_va_list

#define Cyc_bytevector_va_list (   argc)
Value:
{ \
int i = 0, val; \
va_list ap; \
object tmp; \
char *buffer; \
make_empty_bytevector(bv); \
if (argc > 0) { \
Cyc_check_num(data, bval); \
buffer = alloca(sizeof(char) * argc); \
val = unbox_number(bval); \
buffer[i] = val; \
va_start(ap, bval); \
for(i = 1; i < argc; i++) { \
tmp = va_arg(ap, object); \
Cyc_check_num(data, tmp); \
val = unbox_number(tmp); \
buffer[i] = (unsigned char)val; \
} \
va_end(ap); \
bv.len = argc; \
bv.data = buffer; \
} \
_return_closcall1(data, cont, &bv); \
}
#define unbox_number(n)
Definition: runtime.h:300