From 381a690cd894ead36ee4598e5fe3fc0ae1e5bb18 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 4 Oct 2015 20:10:56 +0200
Subject: [PATCH] frontend/define.c, ntharg(), bug fix, fix check for end of
 PT_OP_COMMA args list

ancient bug, yet not much of a consequence because there was already
  another check for correct arity of a function application.
("define"'ed function in the .control section)
---
 src/frontend/define.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/frontend/define.c b/src/frontend/define.c
index 28e0ccaec..ba559d17c 100644
--- a/src/frontend/define.c
+++ b/src/frontend/define.c
@@ -413,11 +413,8 @@ ntharg(int num, struct pnode *args)
                 return args->pn_left;
             return args;
         }
-        if (args->pn_op && (args->pn_op->op_num != PT_OP_COMMA)) {
-            if (num <= 2)
-                return args;
+        if (!(args->pn_op && (args->pn_op->op_num == PT_OP_COMMA)))
             return NULL;
-        }
     }
 
     return NULL;