Changeset 497 for abuse/trunk/src/level.cppTweet

Timestamp:

Apr 17, 2011, 11:56:59 PM (12 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LSymbol::EvalFunction? and ensure all local pointers are
protected against collection.

File:

• abuse/trunk/src/level.cpp (modified) (2 diffs)

abuse/trunk/src/level.cpp

@@ -1512 +1512 @@
     PtrRef r1(arg_list);
     push_onto_list(LString::Create(n),arg_list);
-    eval_function((LSymbol *)l_level_loaded,arg_list);
+    ((LSymbol *)l_level_loaded)->EvalFunction(arg_list);
 
     current_space=sp;
@@ -1839 +1839 @@
       current_object=f->focus;
       void *m=mark_heap(TMP_SPACE);
-      eval_function(fun,NULL);
+      fun->EvalFunction(NULL);
       restore_heap(m,TMP_SPACE);
     }