Allow Cyc_apply to receive 0 scheme args

This commit is contained in:
Justin Ethier 2016-02-11 21:05:37 -05:00
parent d8171527b9
commit bf561a66e1

View file

@ -2128,7 +2128,10 @@ void Cyc_apply(void *data, int argc, closure cont, object prim, ...){
//printf("\n");
va_end(ap);
apply(data, cont, prim, (object)&args[0]);
apply(data, cont, prim,
(argc > 0)
? (object)&args[0]
: nil);
}
// END apply