From 14c6036dec37ae37cc0207aff130128528be7d00 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 23 Oct 2019 22:34:53 -0700
Subject: New macro: ldo.

This is a left-argument-inserting syntactic sugar for do.

* lisplib.c (op_set_entries): Add auto-load entry for ldo.

* share/txr/stdlib/op.tl (ldo): New macro.

* txr.1: Documented.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index 62b41b3b..e3487496 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -747,7 +747,7 @@ static val debugger_set_entries(val dlt, val fun)
 static val op_set_entries(val dlt, val fun)
 {
   val name[] = {
-    lit("op"), lit("do"), lit("lop"), lit("ap"), lit("ip"),
+    lit("op"), lit("do"), lit("lop"), lit("ldo"), lit("ap"), lit("ip"),
     lit("ado"), lit("ido"), lit("ret"), lit("aret"),
     lit("opip"), lit("oand"),
     nil
-- 
cgit v1.2.3