core: Add cstring_to_symbol.
[mes.git] / scaffold / mini-mes.c
index f49a3607051922c4cc1a6e665d687e8d943c4e9f..7304a8900743c82bed80256ebede259b825b3081 100644 (file)
@@ -332,7 +332,7 @@ list_of_char_equal_p (SCM a, SCM b) ///((internal))
 }
 
 SCM
-lookup_symbol_ (SCM s)
+list_to_symbol (SCM s)
 {
   SCM x = g_symbols;
   while (x) {