summaryrefslogtreecommitdiffstats
path: root/sc2.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 /sc2.c
parent302e3218b7d487539ec305bf23881a6ee7d5be99 (diff)
downloadscm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.tar.gz
scm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.zip
Import Upstream version 5e2upstream/5e2
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;