Bug fixes for num comparisons

This commit is contained in:
Justin Ethier 2016-04-05 23:20:01 -04:00
parent 67f73d1d8a
commit c9326fc8c4

View file

@ -775,9 +775,11 @@ object Cyc_num_cmp_va_list(void *data, int argc, int (fn_op(void *, object, obje
if (argc < 2) {
Cyc_rt_raise_msg(data, "Not enough arguments for boolean operator\n");
}
Cyc_check_num(data, n);
for (i = 1; i < argc; i++) {
next = va_arg(ns, object);
Cyc_check_num(data, next);
if (!fn_op(data, n, next)) {
return boolean_f;
}