diff options
author | Thomas Bushnell <tb@debian.org> | 2006-04-26 23:01:39 -0700 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:32 -0800 |
commit | 20402610bf881f67b22eb1600340d8284556ae56 (patch) | |
tree | 6a19e5a1b2cc22dccd1003787a70b751f7da4763 /gsubr.c | |
parent | 5846f77421a975897a31d6fbf3f520aab385cea3 (diff) | |
parent | ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (diff) | |
download | scm-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.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); |