diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-01-23 00:17:51 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-01-23 00:17:51 -0800 |
| commit | 9daf2efed7345dde3b007699156ee79bca5f8c97 (patch) | |
| tree | a01781472addd6a18aee86109c603924477608c7 /lib.h | |
| parent | e5c930dadc76a19a76895e4db22552c83e7a87c2 (diff) | |
| download | txr-9daf2efed7345dde3b007699156ee79bca5f8c97.tar.gz txr-9daf2efed7345dde3b007699156ee79bca5f8c97.tar.bz2 txr-9daf2efed7345dde3b007699156ee79bca5f8c97.zip | |
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.
Diffstat (limited to 'lib.h')
| -rw-r--r-- | lib.h | 9 |
1 files changed, 0 insertions, 9 deletions
@@ -556,7 +556,6 @@ extern val rplaca_s, rplacd_s, seq_iter_s; extern val nothrow_k, args_k, colon_k, auto_k, fun_k; extern val null_string; -extern val null_list; /* (nil) */ extern val identity_f, identity_star_f; extern val equal_f, eql_f, eq_f, car_f, cdr_f, null_f; @@ -748,7 +747,6 @@ val make_lazy_cons_pub(val func, val car, val cdr); val lcons_car(val lcons); val lcons_cdr(val lcons); void rcyc_cons(val cons); -void rcyc_list(val list); void rcyc_empty(void); val lcons_fun(val lcons); INLINE val us_lcons_fun(val lcons) { return lcons->lc.func; } @@ -940,7 +938,6 @@ val flo_int(val i); val less(val left, val right); val greater(val left, val right); val lequal(val left, val right); -val gequal(val left, val right); val lessv(val first, struct args *rest); val greaterv(val first, struct args *rest); val lequalv(val first, struct args *rest); @@ -1032,9 +1029,6 @@ val func_n2v(val (*fun)(val, val, varg)); val func_n3v(val (*fun)(val, val, val, varg)); val func_n4v(val (*fun)(val, val, val, val, varg)); val func_n5v(val (*fun)(val, val, val, val, val, varg)); -val func_n6v(val (*fun)(val, val, val, val, val, val, varg)); -val func_n7v(val (*fun)(val, val, val, val, val, val, val, varg)); -val func_n8v(val (*fun)(val, val, val, val, val, val, val, val, varg)); val func_n1o(val (*fun)(val), int reqargs); val func_n2o(val (*fun)(val, val), int reqargs); val func_n3o(val (*fun)(val, val, val), int reqargs); @@ -1078,7 +1072,6 @@ val pa_12_1(val fun2, val arg2); val pa_123_3(val fun3, val arg1, val arg2); val pa_123_2(val fun3, val arg1, val arg3); val pa_123_1(val fun3, val arg2, val arg3); -val pa_123_23(val fun3, val arg1); val pa_1234_1(val fun4, val arg2, val arg3, val arg4); val pa_1234_34(val fun3, val arg1, val arg2); val chain(val first_fun, ...); @@ -1087,7 +1080,6 @@ val chandv(struct args *funlist); val juxtv(struct args *funlist); val andf(val first_fun, ...); val andv(struct args *funlist); -val orf(val first_fun, ...); val orv(struct args *funlist); val notf(val fun); val nandv(struct args *funlist); @@ -1158,7 +1150,6 @@ val acons(val car, val cdr, val list); val acons_new(val key, val value, val list); val acons_new_c(val key, loc new_p, loc list); val aconsql_new(val key, val value, val list); -val aconsql_new_c(val key, loc new_p, loc list); val alist_remove(val list, val keys); val alist_removev(val list, struct args *keys); val alist_remove1(val list, val key); |