From 542b138bdb29e4a3d765a12bdc60fd2a0da84c3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 16 Jul 1999 15:54:23 -0700
Subject: [PATCH] bugfix

Rev: src/object.c:1.73
---
 src/object.c | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/object.c b/src/object.c
index 684debf19b..1c2d2e132c 100644
--- a/src/object.c
+++ b/src/object.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: object.c,v 1.72 1999/06/19 20:01:05 hubbe Exp $");
+RCSID("$Id: object.c,v 1.73 1999/07/16 22:54:23 hubbe Exp $");
 #include "object.h"
 #include "dynamic_buffer.h"
 #include "interpret.h"
@@ -832,20 +832,20 @@ union anything *object_get_item_ptr(struct object *o,
     return 0; /* make gcc happy */
   }
 
-  f=ARROW_INDEX_P(index) ? LFUN_ASSIGN_ARROW : LFUN_ASSIGN_INDEX;
-
-  if(FIND_LFUN(p,f) != -1)
-  {
-    return 0;
-
-    /* error("Cannot do incremental operations on overloaded index (yet).\n");
-     */
-  }
-    
 
   switch(index->type)
   {
   case T_STRING:
+    f=ARROW_INDEX_P(index) ? LFUN_ASSIGN_ARROW : LFUN_ASSIGN_INDEX;
+
+    if(FIND_LFUN(p,f) != -1)
+    {
+      return 0;
+      
+      /* error("Cannot do incremental operations on overloaded index (yet).\n");
+       */
+    }
+    
     f=find_shared_string_identifier(index->u.string, p);
     break;
 
@@ -854,7 +854,7 @@ union anything *object_get_item_ptr(struct object *o,
     break;
 
   default:
-    error("Lookup on non-string value.\n");
+/*    error("Lookup on non-string value.\n"); */
     return 0;
   }
 
-- 
GitLab