diff options
-rw-r--r-- | Makefile | 2 | ||||
-rw-r--r-- | autoload.c (renamed from lisplib.c) | 20 | ||||
-rw-r--r-- | autoload.h (renamed from lisplib.h) | 2 | ||||
-rw-r--r-- | cadr.c | 2 | ||||
-rw-r--r-- | eval.c | 4 | ||||
-rw-r--r-- | gencadr.txr | 2 |
6 files changed, 16 insertions, 16 deletions
@@ -53,7 +53,7 @@ EXTRA_OBJS-y := OBJS := txr.o lex.yy.o y.tab.o match.o lib.o regex.o gc.o unwind.o stream.o OBJS += arith.o hash.o utf8.o filter.o eval.o parser.o rand.o combi.o sysif.o -OBJS += args.o lisplib.o cadr.o struct.o itypes.o buf.o jmp.o protsym.o ffi.o +OBJS += args.o autoload.o cadr.o struct.o itypes.o buf.o jmp.o protsym.o ffi.o OBJS += strudel.o vm.o chksum.o chksums/sha256.o chksums/crc32.o chksums/md5.o OBJS += tree.o time.o psquare.o OBJS += linenoise/linenoise.o @@ -39,7 +39,7 @@ #include "debug.h" #include "txr.h" #include "socket.h" -#include "lisplib.h" +#include "autoload.h" int opt_dbg_autoload; val trace_loaded; @@ -1033,7 +1033,7 @@ val autoload_reg(val (*instantiate)(val), return set_entries(func_f0(func_n1(set_entries), instantiate)); } -static void lisplib_init_tables(void) +static void autoload_init_tables(void) { int i; for (i = 0; i <= al_max; i++) { @@ -1042,9 +1042,9 @@ static void lisplib_init_tables(void) } } -void lisplib_init(void) +void autoload_init(void) { - lisplib_init_tables(); + autoload_init_tables(); autoload_reg(place_instantiate, place_set_entries); autoload_reg(ver_instantiate, ver_set_entries); autoload_reg(ifa_instantiate, ifa_set_entries); @@ -1097,7 +1097,7 @@ void lisplib_init(void) reg_fun(intern(lit("autoload-try-fun"), system_package), func_n1(autoload_try_fun)); } -static val lisplib_try_load(al_ns_t ns, val sym) +static val autoload_try(al_ns_t ns, val sym) { val fun = gethash(autoload_hash[ns], sym); @@ -1117,12 +1117,12 @@ static val lisplib_try_load(al_ns_t ns, val sym) val autoload_try_fun(val sym) { - return lisplib_try_load(al_fun, sym); + return autoload_try(al_fun, sym); } val autoload_try_var(val sym) { - return lisplib_try_load(al_var, sym); + return autoload_try(al_var, sym); } val autoload_try_fun_var(val sym) @@ -1134,15 +1134,15 @@ val autoload_try_fun_var(val sym) val autoload_try_slot(val sym) { - return lisplib_try_load(al_slot, sym); + return autoload_try(al_slot, sym); } val autoload_try_struct(val sym) { - return lisplib_try_load(al_struct, sym); + return autoload_try(al_struct, sym); } val autoload_try_keyword(val sym) { - return lisplib_try_load(al_key, sym); + return autoload_try(al_key, sym); } @@ -31,7 +31,7 @@ typedef enum autoload_ns { } al_ns_t; extern val trace_loaded; -void lisplib_init(void); +void autoload_init(void); val autoload_try_fun(val sym); val autoload_try_var(val sym); val autoload_try_fun_var(val sym); @@ -36,7 +36,7 @@ #include "lib.h" #include "eval.h" #include "stream.h" -#include "lisplib.h" +#include "autoload.h" #include "txr.h" #include "cadr.h" @@ -51,7 +51,7 @@ #include "match.h" #include "txr.h" #include "combi.h" -#include "lisplib.h" +#include "autoload.h" #include "struct.h" #include "cadr.h" #include "filter.h" @@ -7482,7 +7482,7 @@ void eval_init(void) uw_register_subtype(case_error_s, error_s); atexit(run_load_hooks_atexit); - lisplib_init(); + autoload_init(); } void eval_compat_fixup(int compat_ver) diff --git a/gencadr.txr b/gencadr.txr index 20e7b7bb..42a7f435 100644 --- a/gencadr.txr +++ b/gencadr.txr @@ -29,7 +29,7 @@ #include "lib.h" #include "eval.h" #include "stream.h" -#include "lisplib.h" +#include "autoload.h" #include "txr.h" #include "cadr.h" @ (repeat) |