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

Timestamp:

Apr 17, 2011, 10:28:36 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LispString::Create.

File:

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

abuse/trunk/src/view.cpp

@@ -460 +460 @@
       void *m=mark_heap(TMP_SPACE);
       void *list=NULL;
-      push_onto_list(new_lisp_string(chat_buf),list);
+      push_onto_list(LispString::Create(chat_buf),list);
       eval_function((LispSymbol *)l_chat_input,list);
       restore_heap(m,TMP_SPACE);