summaryrefslogtreecommitdiffstats
path: root/sc2.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 /sc2.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 'sc2.c')
-rw-r--r--sc2.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/sc2.c b/sc2.c
index 5749b63..1487dbd 100644
--- a/sc2.c
+++ b/sc2.c
@@ -135,7 +135,7 @@ SCM strnullp(str)
SCM str;
{
ASRTER(NIMP(str) && STRINGP(str), str, ARG1, s_strnullp);
- if LENGTH(str) return BOOL_F;
+ if (LENGTH(str)) return BOOL_F;
else return BOOL_T;
}
@@ -145,11 +145,11 @@ SCM appendb(args)
{
SCM arg;
tail:
- if NULLP(args) return EOL;
+ if (NULLP(args)) return EOL;
arg = CAR(args);
args = CDR(args);
- if NULLP(args) return arg;
- if NULLP(arg) goto tail;
+ if (NULLP(args)) return arg;
+ if (NULLP(arg)) goto tail;
ASRTER(NIMP(arg) && CONSP(arg), arg, ARG1, s_appendb);
CDR(last_pair(arg)) = appendb(args);
return arg;