Add in-package directive.

* match.c (in_package_s): New symbol variable.
(syms_init): Initialize in_package_s.

* match.h (in_package_s): Declared.

* parser.y (check_parse_time_action): Add case for in-package.
Evaluate just with eval, as a case of the in-package macro.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.h b/match.h
index 9894ecff..35e7cd05 100644
--- a/match.h
+++ b/match.h
@@ -25,7 +25,7 @@
  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
-extern val text_s, choose_s, gather_s, do_s, mdo_s, require_s;
+extern val text_s, choose_s, gather_s, do_s, mdo_s, require_s, in_package_s;
 extern val close_s, load_s, include_s, mod_s, modlast_s, line_s;
 extern val counter_k, vars_k, env_k, var_k, into_k, named_k;
 val match_expand_keyword_args(val elem);