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

Timestamp:

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

Author:

Sam Hocevar

Message:

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

File:

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

abuse/trunk/src/view.cpp

@@ -335 +335 @@
 /*    if( DEFINEDP( symbol_function( l_get_local_input ) ) )
     {
-        void *ret = eval_function((LSymbol *)l_get_local_input, NULL );
+        void *ret = ((LSymbol *)l_get_local_input->EvalFunction(NULL);
         sug_x = lnumber_value( CAR( ret ) );
         ret = CDR( ret );
@@ -462 +462 @@
       void *list=NULL;
       push_onto_list(LString::Create(chat_buf),list);
-      eval_function((LSymbol *)l_chat_input,list);
+      ((LSymbol *)l_chat_input)->EvalFunction(list);
       restore_heap(m,TMP_SPACE);