summaryrefslogtreecommitdiffstats
path: root/gsubr.c
diff options
context:
space:
mode:
authorThomas Bushnell <tb@debian.org>2006-04-26 23:01:39 -0700
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:32 -0800
commit20402610bf881f67b22eb1600340d8284556ae56 (patch)
tree6a19e5a1b2cc22dccd1003787a70b751f7da4763 /gsubr.c
parent5846f77421a975897a31d6fbf3f520aab385cea3 (diff)
parentae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (diff)
downloadscm-20402610bf881f67b22eb1600340d8284556ae56.tar.gz
scm-20402610bf881f67b22eb1600340d8284556ae56.zip
Import Debian changes 5e2-1debian/5e2-1
scm (5e2-1) unstable; urgency=low * New upstream release. * Change to continue.h from version 5e1-2 repeated here.
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);