From 7215b52357ee6cff03ea6c52a2c58f4f21f05add Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 8 Nov 2023 21:06:57 -0800
Subject: New macro: tap.

* autoload.c (op_set_entries): Add tap symbol as autoload
trigger for op module.

* stdlib/op.tl (tap): New macro.

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

* txr.1: Documented.
---
 stdlib/op.tl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'stdlib/op.tl')

diff --git a/stdlib/op.tl b/stdlib/op.tl
index 79786f20..6c3966b1 100644
--- a/stdlib/op.tl
+++ b/stdlib/op.tl
@@ -276,3 +276,6 @@
 
 (defmacro lflow (val . opip-args)
   ^(call (lopip ,*opip-args) ,val))
+
+(defmacro tap (. args)
+  ^(prog1 @1 ,args))
-- 
cgit v1.2.3