Ignore:
Timestamp:
May 11, 2011, 1:26:11 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: refactor Lisp spaces so that they are real objects, and get rid
of the unused USER_SPACE.

File:
1 edited

Legend:

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

    r590 r635  
    389389  if (!DEFINEDP(ss->GetValue()))
    390390  {
    391     int sp=current_space;
    392     current_space=PERM_SPACE;
     391    LSpace *sp = LSpace::Current;
     392    LSpace::Current = &LSpace::Perm;
    393393//    char *prog="((\"art/help.spe\" . \"sell2\")(\"art/help.spe\" . \"sell4\")(\"art/help.spe\" . \"sell3\")(\"art/fore/endgame.spe\" . \"credit\"))";
    394394//    char *prog="((\"art/fore/endgame.spe\" . \"credit\") (\"art/help.spe\" . \"sell6\"))";
    395395    char const *prog = "((\"art/fore/endgame.spe\" . \"credit\"))";
    396396    ss->SetValue(LObject::Compile(prog));
    397     current_space=sp;
     397    LSpace::Current = sp;
    398398  }
    399399
Note: See TracChangeset for help on using the changeset viewer.