core: Remove symbol_to_list, char_to_integer, integer_to_char.
[mes.git] / mes.c
diff --git a/mes.c b/mes.c
index 6df14a968ea573c427dff60d4f40adbd5702d8a0..dd8115495732f1ae91044957b08ad76a8494cde3 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -868,27 +868,6 @@ write_char (SCM x) ///((arity . n))
   return c;
 }
 
-SCM
-symbol_to_list (SCM x)
-{
-  assert (TYPE (x) == SYMBOL);
-  return STRING (x);
-}
-
-SCM
-char_to_integer (SCM x)
-{
-  assert (TYPE (x) == CHAR);
-  return MAKE_NUMBER (VALUE (x));
-}
-
-SCM
-integer_to_char (SCM x)
-{
-  assert (TYPE (x) == NUMBER);
-  return MAKE_CHAR (VALUE (x));
-}
-
 void
 make_tmps (scm* cells)
 {