diff options
Diffstat (limited to 'gsubr.c')
-rw-r--r-- | gsubr.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -96,21 +96,21 @@ SCM gsubr_apply(args) args = CDR(args); for (i = 0; i < GSUBR_REQ(typ); i++) { #ifndef RECKLESS - if IMP(args) + if (IMP(args)) wnargs: wta(UNDEFINED, (char *)WNA, SNAME(GSUBR_PROC(self))); #endif v[i] = CAR(args); args = CDR(args); } for (; i < GSUBR_REQ(typ) + GSUBR_OPT(typ); i++) { - if NIMP(args) { + if (NIMP(args)) { v[i] = CAR(args); args = CDR(args); } else v[i] = UNDEFINED; } - if GSUBR_REST(typ) + if (GSUBR_REST(typ)) v[i] = args; else ASRTGO(NULLP(args), wnargs); |