Changeset 635 for abuse/trunk/src/particle.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/particle.cpp (modified) (1 diff)

abuse/trunk/src/particle.cpp

@@ -72 +72 @@
     exit(0);
   }
-  int sp=current_space;
-  current_space=PERM_SPACE;
+  LSpace *sp = LSpace::Current;
+  LSpace::Current = &LSpace::Perm;
   sym->SetNumber(total_pseqs); // set the symbol value to the object number
-  current_space=sp;
+  LSpace::Current = sp;
   pseqs=(part_sequence **)realloc(pseqs,sizeof(part_sequence *)*(total_pseqs+1));