diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-06 07:06:00 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-09 15:51:24 -0700 |
| commit | 23f5371c462e933102e6c4048dded8d9c5811f73 (patch) | |
| tree | aa4e5bb9c3bd661ffb32a3820a80c680d1924faf /txr.c | |
| parent | 8a9159263d4ca1b174a60476e3863c45d9e63cc1 (diff) | |
| download | txr-23f5371c462e933102e6c4048dded8d9c5811f73.tar.gz txr-23f5371c462e933102e6c4048dded8d9c5811f73.tar.bz2 txr-23f5371c462e933102e6c4048dded8d9c5811f73.zip | |
Application code is now in a package called pub.
* lib.c (public_package): New variable.
(obj_init): Protect public_package from gc. Initialize
it with a package called "pub" which has the user
package in its fallback list.
* lib.h (public_package): Declared.
* eval.c (eval_init): Initialize package_s to public_package
rather than user_package, except in compat <= 190 mode.
* txr.c (txr_main): Bind *package* to public_package
rather than user_package, except in compat <= 190 mode.
Diffstat (limited to 'txr.c')
| -rw-r--r-- | txr.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1065,7 +1065,8 @@ repl: num(opt_compat), nao); reg_var(args_s, or2(orig_args, arg_list)); reg_varl(intern(lit("self-path"), user_package), lit("listener")); - env_vbind(dyn_env, package_s, user_package); + env_vbind(dyn_env, package_s, + opt_compat && opt_compat <= 190 ? user_package : public_package); env_vbind(dyn_env, load_recursive_s, nil); repl(bindings, std_input, std_output); #endif |