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 /lib.h | |
| 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 'lib.h')
| -rw-r--r-- | lib.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -445,7 +445,7 @@ INLINE val chr(wchar_t ch) #define cur_package_alist_loc (get_current_package_alist_loc()) extern val packages, system_package, keyword_package, user_package; -extern val package_alist_s; +extern val public_package, package_alist_s; extern val package_s, keyword_package_s, system_package_s, user_package_s; extern val null_s, t, cons_s, str_s, chr_s, fixnum_sl; extern val sym_s, pkg_s, fun_s, vec_s; |