Changeset 635 for abuse/trunk/src/menu.cppTweet

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:

• abuse/trunk/src/menu.cpp (modified) (1 diff)

abuse/trunk/src/menu.cpp

@@ -389 +389 @@
   if (!DEFINEDP(ss->GetValue()))
   {
-    int sp=current_space;
-    current_space=PERM_SPACE;
+    LSpace *sp = LSpace::Current;
+    LSpace::Current = &LSpace::Perm;
 //    char *prog="((\"art/help.spe\" . \"sell2\")(\"art/help.spe\" . \"sell4\")(\"art/help.spe\" . \"sell3\")(\"art/fore/endgame.spe\" . \"credit\"))";
 //    char *prog="((\"art/fore/endgame.spe\" . \"credit\") (\"art/help.spe\" . \"sell6\"))";
     char const *prog = "((\"art/fore/endgame.spe\" . \"credit\"))";
     ss->SetValue(LObject::Compile(prog));
-    current_space=sp;
+    LSpace::Current = sp;
   }