From 1edcb9b62a1a520eddae8403c19d841c9b18737f Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:24 -0800
Subject: Import Upstream version 5b3

---
 sc2.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sc2.c')

diff --git a/sc2.c b/sc2.c
index 904458a..e72de95 100644
--- a/sc2.c
+++ b/sc2.c
@@ -147,10 +147,10 @@ SCM appendb(args)
  tail:
   if NULLP(args) return EOL;
   arg = CAR(args);
-  ASSERT(NULLP(arg) || (NIMP(arg) && CONSP(arg)), arg, ARG1, s_appendb);
   args = CDR(args);
   if NULLP(args) return arg;
   if NULLP(arg) goto tail;
+  ASSERT(NIMP(arg) && CONSP(arg), arg, ARG1, s_appendb);
   CDR(last_pair(arg)) = appendb(args);
   return arg;
 }
-- 
cgit v1.2.3