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

lisp: implement LObject::Eval.

File:
1 edited

Legend:

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

    r494 r496  
    5656  char const *cs=prog;
    5757  strcpy(prog,"(setq section 'game_section)\n");
    58   eval(compile(cs));
     58  LObject::Compile(cs)->Eval();
    5959  strcpy(prog,"(load \"lisp/english.lsp\")\n");
    6060  cs=prog;
    61   if (!eval(compile(cs)))
     61  if (!LObject::Compile(cs)->Eval())
    6262  {
    6363    printf("unable to open file '%s'\n",lsf);
     
    965965    strcpy(prog,"(compile-file \"edit.lsp\")");
    966966    cs=prog;
    967     void *p=compile(cs);
     967    LObject *p = LObject::Compile(cs);
    968968    l_user_stack.push(p);
    969     eval(p);
     969    p->Eval();
    970970    l_user_stack.pop(1);
    971971    for (int i=0; i<total_pals; i++)
     
    982982  if (command[0]=='(')            // is this a lisp command?
    983983  {
    984     eval(compile(command));
     984    LObject::Compile(command)->Eval();
    985985    return ;
    986986  }
     
    23092309          atoi(mess_win->read(ID_MESS_STR2)));
    23102310      char const *s=name;
    2311       eval(compile(s));
     2311      LObject::Compile(s)->Eval();
    23122312      wm->push_event(new event(ID_CANCEL,NULL));        // close window
    23132313    } break;
Note: See TracChangeset for help on using the changeset viewer.