summaryrefslogtreecommitdiffstats
path: root/gsubr.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
commitae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (patch)
treeeee15e02ae016333546d3841712be591b2bcb06f /gsubr.c
parent302e3218b7d487539ec305bf23881a6ee7d5be99 (diff)
downloadscm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.tar.gz
scm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.zip
Import Upstream version 5e2upstream/5e2
Diffstat (limited to 'gsubr.c')
-rw-r--r--gsubr.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/gsubr.c b/gsubr.c
index d3d7c82..6f9a790 100644
--- a/gsubr.c
+++ b/gsubr.c
@@ -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);