From 660c542f19136675f3bce6b171af638468df5a87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 3 May 2000 02:00:44 -0700
Subject: [PATCH] very minor optimization

Rev: src/array.c:1.70
---
 src/array.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/array.c b/src/array.c
index 648c0425ca..3786a90a90 100644
--- a/src/array.c
+++ b/src/array.c
@@ -23,7 +23,7 @@
 #include "stuff.h"
 #include "bignum.h"
 
-RCSID("$Id: array.c,v 1.69 2000/04/27 02:13:28 hubbe Exp $");
+RCSID("$Id: array.c,v 1.70 2000/05/03 09:00:44 hubbe Exp $");
 
 struct array empty_array=
 {
@@ -242,8 +242,6 @@ void simple_set_index(struct array *a,struct svalue *ind,struct svalue *s)
   INT32 i;
   switch (ind->type) {
     case T_INT:
-      if(ind->type != T_INT)
-	error("Index is not an integer.\n");
       i=ind->u.integer;
       if(i<0) i+=a->size;
       if(i<0 || i>=a->size) {
-- 
GitLab