Overhaul of self-load-path mechanism.

The self-load-path symbol macro is as of now
deprecated. It simply expands to *load-path*.
*load-path* is a new special variable which is
dynamically bound to the path of a file
being loaded.

* eval.c (self_load_path_s): Global variable renamed
to load_path_s.
(sys_load): Bind *load-path* around processing of loaded file.
(me_load): Expand (load x) simply to (sys:load x *load-path*).
(set_get_symacro): Function removed.
(reg_symacro): New static function.
(eval_init): Initialize renamed load_path_s with interned
symbol having the name *load-path*. Register the *load-path*
special variable. Set up the sel-load-path symbol macro
aliasing for *load-path*.

* eval.h (self_load_path_s): Declaration renamed.

* match.c (v_load): Bind *load-path* around loading
or inclusion.

* parser.c (load_rcfile): Bind *load-path* around loading
of .txr_profile file.

* txr.c (txr_main): Bind *load-path* instead of
self-load-path symbol macro.

* txr.1: Updated documentation for @(load) directive
and load macro. Replaced documentation of self-load-path
with *load-path*.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.h b/eval.h
index fb9c34f4..d36290fb 100644
--- a/eval.h
+++ b/eval.h
@@ -30,7 +30,7 @@ extern val eval_error_s, if_s, call_s;
 extern val eq_s, eql_s, equal_s;
 extern val car_s, cdr_s;
 extern val last_form_evaled, last_form_expanded;
-extern val self_load_path_s;
+extern val load_path_s;
 
 noreturn val eval_error(val ctx, val fmt, ...);
 val ctx_form(val obj);