Changeset 635 for abuse/trunk/src/cache.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/cache.cpp (modified) (2 diffs)

abuse/trunk/src/cache.cpp

@@ -382 +382 @@
       if (cache_fun)
       {
-    int sp=current_space;
-    current_space=PERM_SPACE;
+    LSpace *sp = LSpace::Current;
+    LSpace::Current = &LSpace::Perm;
 
     void *call_with=NULL;
@@ -419 +419 @@
       }
     }
-    current_space=sp;
+    LSpace::Current=sp;
 
       }