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

---
 gsubr.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gsubr.c')

diff --git a/gsubr.c b/gsubr.c
index d3d7c82..6f9a790 100644
--- a/gsubr.c
+++ b/gsubr.c
@@ -96,21 +96,21 @@ SCM gsubr_apply(args)
   args = CDR(args);
   for (i = 0; i < GSUBR_REQ(typ); i++) {
 #ifndef RECKLESS
-    if IMP(args)
+    if (IMP(args))
       wnargs: wta(UNDEFINED, (char *)WNA, SNAME(GSUBR_PROC(self)));
 #endif
     v[i] = CAR(args);
     args = CDR(args);
   }
   for (; i < GSUBR_REQ(typ) + GSUBR_OPT(typ); i++) {
-    if NIMP(args) {
+    if (NIMP(args)) {
       v[i] = CAR(args);
       args = CDR(args);
     }
     else
       v[i] = UNDEFINED;
   }
-  if GSUBR_REST(typ)
+  if (GSUBR_REST(typ))
     v[i] = args;
   else
     ASRTGO(NULLP(args), wnargs);
-- 
cgit v1.2.3