* lib.c (eol_s): New symbol variable.

(obj_init): New variable initialized.

* lib.h (eol_s): Declared.

* match.c (match_line): Implemented horizontal skip as and
new eol directive.
(match_lines): Vertical skip defers to horizontal skip if
there is trailing material.

* txr.1: Updated.
* lib.c (eol_s): New symbol variable.
(obj_init): New variable initialized.

* lib.h (eol_s): Declared.

* match.c (match_line): Implemented horizontal skip as and
new eol directive.
(match_lines): Vertical skip defers to horizontal skip if
there is trailing material.

* txr.1: Updated.

1 files changed, 3 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 02c08171..e873a206 100644
--- a/lib.c
+++ b/lib.c
@@ -60,7 +60,8 @@ val all_s, some_s, none_s, maybe_s, cases_s, collect_s, until_s, coll_s;
 val define_s, output_s, single_s, first_s, last_s, empty_s;
 val repeat_s, rep_s, flatten_s, forget_s;
 val local_s, merge_s, bind_s, cat_s;
-val try_s, catch_s, finally_s, throw_s, defex_s, deffilter_s, eof_s;
+val try_s, catch_s, finally_s, throw_s, defex_s, deffilter_s;
+val eof_s, eol_s;
 val error_s, type_error_s, internal_error_s;
 val numeric_error_s, range_error_s;
 val query_error_s, file_error_s, process_error_s;
@@ -2212,6 +2213,7 @@ static void obj_init(void)
   defex_s = intern(lit("defex"), user_package);
   deffilter_s = intern(lit("deffilter"), user_package);
   eof_s = intern(lit("eof"), user_package);
+  eol_s = intern(lit("eol"), user_package);
   error_s = intern(lit("error"), user_package);
   type_error_s = intern(lit("type_error"), user_package);
   internal_error_s = intern(lit("internal_error"), user_package);