The code expander becomes a public API.

The functions sys:expand, sys:expand* and
sys:expand-with-free-refs are now in the usr package and
documented for public use.

* eval.c (eval_init): Move registrations of the symbools
expand, expand* and expand-with-free-refs from the
system package to the user package.

* share/txr/stdlib/awk.tl (sys:awk-mac-let, awk): Uses of
sys:expand drop the sys: prefix.

* share/txr/stdlib/op.tl (sys:op-alpha-rename): Likewise.

* share/txr/stdlib/place.tl (call-upudate-expander,
call-clobber-expander, call-delete-expander, sys:placelet-1):
Likewise.

* tests/011/macros-2.txr, tests/012/struct.tl: Likewise.

* txr.1: Documented expand, expand* and expand-with-free-refs.

1 files changed, 3 insertions, 3 deletions

diff --git a/eval.c b/eval.c
index e28e1164..05c07ce8 100644
--- a/eval.c
+++ b/eval.c
@@ -6456,9 +6456,9 @@ void eval_init(void)
   reg_var(load_path_s, nil);
   reg_symacro(intern(lit("self-load-path"), user_package), load_path_s);
   reg_var(load_recursive_s, nil);
-  reg_fun(intern(lit("expand"), system_package), func_n2o(no_warn_expand, 1));
-  reg_fun(intern(lit("expand*"), system_package), func_n2o(expand, 1));
-  reg_fun(intern(lit("expand-with-free-refs"), system_package),
+  reg_fun(intern(lit("expand"), user_package), func_n2o(no_warn_expand, 1));
+  reg_fun(intern(lit("expand*"), user_package), func_n2o(expand, 1));
+  reg_fun(intern(lit("expand-with-free-refs"), user_package),
           func_n3o(expand_with_free_refs, 1));
   reg_fun(intern(lit("macro-form-p"), user_package), func_n2o(macro_form_p, 1));
   reg_fun(intern(lit("macroexpand-1"), user_package),