Ignore:
Timestamp:
Apr 17, 2011, 11:56:59 PM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: implement LSymbol::EvalFunction? and ensure all local pointers are
protected against collection.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/clisp.cpp

    r496 r497  
    582582    exit(0);
    583583      }
    584       return eval_function((LSymbol *)ai,NULL);
     584      return ((LSymbol *)ai)->EvalFunction(NULL);
    585585    } break;
    586586    case 1 :
     
    710710      void *f=figures[current_object->otype]->get_fun(OFUN_USER_FUN);
    711711      if (!f) return NULL;
    712       return eval_function((LSymbol *)f,args);
     712      return ((LSymbol *)f)->EvalFunction(args);
    713713    } break;
    714714    case 17 :
     
    22652265    current_object=v->focus;
    22662266
    2267     eval_function((LSymbol *)l_restart_player,NULL);
     2267    ((LSymbol *)l_restart_player)->EvalFunction(NULL);
    22682268    v->reset_player();
    22692269    v->focus->set_aistate(0);
Note: See TracChangeset for help on using the changeset viewer.