Branch: Tag:

2001-03-09

2001-03-09 02:51:18 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix

Rev: src/interpret.c:1.145

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.144 2001/01/18 22:22:17 mast Exp $"); + RCSID("$Id: interpret.c,v 1.145 2001/03/09 02:51:18 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
266:    to->type=T_INT;    if(multiset_member(lval->u.multiset,lval+1))    { -  to->u.integer=0; -  to->subtype=NUMBER_UNDEFINED; +  to->u.integer=1; +  to->subtype=NUMBER_NUMBER;    }else{    to->u.integer=0; -  to->subtype=NUMBER_NUMBER; +  to->subtype=NUMBER_UNDEFINED;    }    break;