core: Add cstring_to_symbol.
[mes.git] / src / reader.c
index 0a3c985e71aa34ac6b089fee041b073bcce6f6ed..ef699a7d836ff7ac6330e4eb01ae0ee9b2b256e1 100644 (file)
@@ -103,7 +103,7 @@ reader_read_identifier_or_number (int c)
     }
   unreadchar (c);
   buf[i] = 0;
-  return lookup_symbol_ (cstring_to_list (buf));
+  return cstring_to_symbol (buf);
 }
 
 SCM