From 32c00ceb3724fb831d666e8bbdc15ad826161731 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 16 Jul 2018 06:49:52 -0700
Subject: opip, oand: rewrite in Lisp.

* eval.c (opip_s, oand_s, chain_s, chand_s): Variables
removed.
(me_opip): Function removed.
(eval_init): Initializations of removed variables removed.
chain and chand symbols interned at point of function
registration.

* lisplib.c (op_set_entries): Add autoload entries for opip
and oand.

* share/txr/stdlib/op.tl (sys:opip-expand): New function.
(opip, oand): New macros.

* protsym.c: Regenerated.
---
 lisplib.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index 0e1b72bf..86f03ccb 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -720,6 +720,7 @@ static val op_set_entries(val dlt, val fun)
   val name[] = {
     lit("op"), lit("do"), lit("lop"), lit("ap"), lit("ip"),
     lit("ado"), lit("ido"), lit("ret"), lit("aret"),
+    lit("opip"), lit("oand"),
     nil
   };
   set_dlt_entries(dlt, name, fun);
-- 
cgit v1.2.3