Import Upstream version 5e2upstream/5e2

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;