summaryrefslogtreecommitdiffstats
path: root/sc2.c
diff options
context:
space:
mode:
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;