diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-11-08 21:06:57 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-11-08 21:06:57 -0800 |
| commit | 7215b52357ee6cff03ea6c52a2c58f4f21f05add (patch) | |
| tree | c88be5cc7807a8afc8d11289aa3cf0f089bc5cc9 /stdlib/op.tl | |
| parent | f6ce49bf236f58f6d9c84428c4081ebe2620a9c4 (diff) | |
| download | txr-7215b52357ee6cff03ea6c52a2c58f4f21f05add.tar.gz txr-7215b52357ee6cff03ea6c52a2c58f4f21f05add.tar.bz2 txr-7215b52357ee6cff03ea6c52a2c58f4f21f05add.zip | |
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.
Diffstat (limited to 'stdlib/op.tl')
| -rw-r--r-- | stdlib/op.tl | 3 |
1 files changed, 3 insertions, 0 deletions
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)) |