Branch: Tag:

2001-03-09

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

bugfix

Rev: src/interpret.c:1.189

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.188 2001/03/04 19:27:18 mirar Exp $"); + RCSID("$Id: interpret.c,v 1.189 2001/03/09 02:28:22 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
276:    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;