From 2aaebfabcc1b0d60a3d1cd55be0bd474063dc551 Mon Sep 17 00:00:00 2001
From: "Gregory J. Ward" <gregoryjward@gmail.com>
Date: Sun, 25 Feb 2024 18:36:27 +0000
Subject: [PATCH] perf: Removed unnecessary test, since argument(0) should
 never be called

---
 src/common/calfunc.c | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/common/calfunc.c b/src/common/calfunc.c
index ef339e68..25844811 100644
--- a/src/common/calfunc.c
+++ b/src/common/calfunc.c
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: calfunc.c,v 2.28 2022/04/08 23:32:25 greg Exp $";
+static const char	RCSid[] = "$Id: calfunc.c,v 2.29 2024/02/25 18:36:27 greg Exp $";
 #endif
 /*
  *  calfunc.c - routines for calcomp using functions.
@@ -22,7 +22,7 @@ static const char	RCSid[] = "$Id: calfunc.c,v 2.28 2022/04/08 23:32:25 greg Exp
 
 				/* bits in argument flag (better be right!) */
 #define  AFLAGSIZ	(8*sizeof(unsigned long))
-#define  ALISTSIZ	8	/* maximum saved argument list */
+#define  ALISTSIZ	10	/* maximum saved argument list */
 
 typedef struct activation {
     char  *name;		/* function name */
@@ -203,9 +203,6 @@ argument(int n)			/* return nth argument for active function */
     EPNODE  *ep = NULL;
     double  aval;
 
-    if (!n)					/* asking for # arguments? */
-	return((double)nargum());
-
     if (!actp | (--n < 0)) {
 	eputs("Bad call to argument!\n");
 	quit(1);