New macro: lop1.

* autoload.c (op_set_entries): Autoload on lop1 symbol.

* stldlib/op.tl (sys:op-expand): Add lop1 case.
(sys:opip-expand): Add lop1 to the list of operators
that are recgonized and specially treated.
(lop1): New macro.

* tests/012/op.tl: New tests.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/autoload.c b/autoload.c
index bf5e7602..9808c141 100644
--- a/autoload.c
+++ b/autoload.c
@@ -713,7 +713,7 @@ static val op_set_entries(val fun)
 {
   val name[] = {
     lit("op"), lit("do"), lit("lop"), lit("ldo"), lit("ap"), lit("ip"),
-    lit("ado"), lit("ido"), lit("ret"), lit("aret"),
+    lit("lop1"), lit("ado"), lit("ido"), lit("ret"), lit("aret"),
     lit("opip"), lit("oand"), lit("lopip"), lit("loand"),
     lit("opf"), lit("lopf"), lit("flow"), lit("lflow"), lit("tap"),
     nil