Remove numerous unused global functions.

* eval.[ch] (lookup_global_var_l): Remove.

* itypes.[ch] (c_schar): Likewise.

* lib.[ch] (null_list, rcyc_list, gequal, func_n6v, func_n7v,
func_n8v, do_pa_123_23, pa_123_23, orf, aconsql_new_c):
Likewise.
(obj_init): Remove references to null_list.

* mpi/mpi-config.h (MP_FOR_TXR): New preprocessor symbol,
defined as 1.

* mpi/mpi.c (mp_get_prec, mp_set_prec, mp_init_array,
mp_clear_array, mp_set_word, mp_exptmod_d, mp_cmp_d,
mp_cmp_mag, mp_cmp_int, mp_lcm, mp_xgcd, mp_invmod,
mp_char2value): Exclude using #if !MPI_FOR_TXR, rather
than remove. We don't bother excluding the declarations in the
header.

* utf8.[ch] (w_freopen): Remove.

1 files changed, 0 insertions, 6 deletions

diff --git a/eval.c b/eval.c
index 15936205..d7e38d88 100644
--- a/eval.c
+++ b/eval.c
@@ -593,12 +593,6 @@ loc lookup_var_l(val env, val sym)
   return if3(binding, cdr_l(binding), nulloc);
 }
 
-loc lookup_global_var_l(val sym)
-{
-  val binding = lookup_global_var(sym);
-  return if3(binding, cdr_l(binding), nulloc);
-}
-
 static val lookup_mac(val menv, val sym);
 
 val lookup_fun(val env, val sym)