From 38bb7375b93b048be6331e3376e091e7506e0fde Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 5 Feb 2017 16:11:00 -0800
Subject: Adding whena macro.

We have ifa and conda; whena is conspicuously absent.

* lisplib.c (ifa_set_entries): Add autoload entry for whena.

* share/txr/stdlib/ifa.tl (whena): New macro.

* txr.1: Documented whena.
---
 txr.1 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'txr.1')

diff --git a/txr.1 b/txr.1
index 65c6c940..9bdc0cd4 100644
--- a/txr.1
+++ b/txr.1
@@ -14283,6 +14283,23 @@ as well as the anaphoric
 .code it
 variable feature.
 
+.coNP Macro @ whena
+.synb
+.mets (whena < test << form *)
+.syne
+.desc
+The
+.code whena
+macro is similar to the
+.code when
+macro, except that it is anaphoric in exactly the same manner as the
+.code ifa
+macro. It may be understood as conforming to the following equivalence:
+
+.cblk
+  (whena x f0 f2 ...)  <-->  (if x (progn f0 f2 ...))
+.cble
+
 .coNP Macro @ dotimes
 .synb
 .mets (dotimes >> ( var < count-form <> [ result-form ]) << body-form *)
-- 
cgit v1.2.3