diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-18 21:58:48 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-18 21:58:48 -0800 |
commit | 9a2bc9a4666b0a8789eccd231dd97cf1abc74cae (patch) | |
tree | beaccc7c26ad872487b95165757e0341876ec983 /lisplib.c | |
parent | 939b47ae4650e2f302d17fb296712943de26c650 (diff) | |
download | txr-9a2bc9a4666b0a8789eccd231dd97cf1abc74cae.tar.gz txr-9a2bc9a4666b0a8789eccd231dd97cf1abc74cae.tar.bz2 txr-9a2bc9a4666b0a8789eccd231dd97cf1abc74cae.zip |
lisplib: rename lisplib funtions to autoload prefix.
* lisplib.c (lisplib_init): Follow rename, and rename
try-load-fun to autoload-try-fun.
(lisplib_try_load_fun, lisplib_try_load_var,
lisplib_try_load_fun_var, lisplib_try_load_slot,
lisplib_try_load_struct, lisplib_try_load_keyword):
Renamed from `lisplib_try_load_@kind` to `autoload_try_@kind`.
* lisplib.h (lisplib_try_load_fun, lisplib_try_load_var,
lisplib_try_load_fun_var, lisplib_try_load_slot,
lisplib_try_load_struct, lisplib_try_load_keyword):
Declarations renamed.
* eval.c (lookup_global_var, lookup_sym_lisp1, lookup_fun,
lookup_mac, lookup_symac, lookup_symac_lisp1, special_var_p,
expand_param_macro, rt_defvar, rt_defv, op_defsymacro,
rt_defsymacro, rt_defun, rt_defmacro, makunbound, fmakunbound,
mmakunbound): Follow rename.
* struct.c (make_struct_type, find_struct_type,
lookup_slot_load, lookup_static_slot_load,
lookup_static_slot_desc_load, slot_types, static_slot_types):
Follow rename.
* stdlib/place.tl (get-place-macro): Follow rename of
try-load-fun to autoload-try-fun.
Diffstat (limited to 'lisplib.c')
-rw-r--r-- | lisplib.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -1094,7 +1094,7 @@ void lisplib_init(void) autoload_reg(pic_instantiate, pic_set_entries); autoload_reg(constfun_instantiate, constfun_set_entries); - reg_fun(intern(lit("try-load-fun"), system_package), func_n1(lisplib_try_load_fun)); + 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) @@ -1115,34 +1115,34 @@ static val lisplib_try_load(al_ns_t ns, val sym) return nil; } -val lisplib_try_load_fun(val sym) +val autoload_try_fun(val sym) { return lisplib_try_load(al_fun, sym); } -val lisplib_try_load_var(val sym) +val autoload_try_var(val sym) { return lisplib_try_load(al_var, sym); } -val lisplib_try_load_fun_var(val sym) +val autoload_try_fun_var(val sym) { uses_or2; - return or2(lisplib_try_load_fun(sym), - lisplib_try_load_var(sym)); + return or2(autoload_try_fun(sym), + autoload_try_var(sym)); } -val lisplib_try_load_slot(val sym) +val autoload_try_slot(val sym) { return lisplib_try_load(al_slot, sym); } -val lisplib_try_load_struct(val sym) +val autoload_try_struct(val sym) { return lisplib_try_load(al_struct, sym); } -val lisplib_try_load_keyword(val sym) +val autoload_try_keyword(val sym) { return lisplib_try_load(al_key, sym); } |