From cfcad668007de34c8c06f030aaba74e0336de75b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 22 Apr 2015 07:30:53 -0700
Subject: * txr.1: Fix formatting issues

whilet, whenlet, iflet, for*
---
 txr.1 | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/txr.1 b/txr.1
index 34ccf78b..e3fd25b4 100644
--- a/txr.1
+++ b/txr.1
@@ -10238,8 +10238,8 @@ test from the "top of the loop" to the "bottom of the loop".
 
 .coNP Macro @ whilet
 .synb
-.mets (whilet ({ sym | >> ( sym << init-form )}+)
-.mets \ \  < body-form *)
+.mets (whilet >> ({ sym | >> ( sym << init-form )}+)
+.mets \ \  << body-form *)
 .syne
 .desc
 The
@@ -10300,10 +10300,10 @@ a return value can be specified. Under normal termination, the return value is
 
 .coNP Macros @ iflet and @ whenlet
 .synb
-.mets (iflet ({ sym | >> ( sym << init-form )}+)
+.mets (iflet >> ({ sym | >> ( sym << init-form )}+)
 .mets \ \  < then-form <> [ else-form ])
-.mets (whenlet ({ sym | >> ( sym << init-form )}+)
-.mets \ \  < body-form *])
+.mets (whenlet >> ({ sym | >> ( sym << init-form )}+)
+.mets \ \  << body-form *])
 .syne
 .desc
 The
@@ -11060,7 +11060,7 @@ functions whose arguments are constant forms.
 .mets (push < item << place )
 .mets (pop << place )
 .mets (flip << place )
-.mets (zap << place <> [ new-value ])
+.mets (zap < place <> [ new-value ])
 .mets (del << place )
 .syne
 .desc
@@ -11357,10 +11357,10 @@ The list of variables may be empty.
 
 .coNP Operators @ for and @ for*
 .synb
-.mets ({ for | for* } >> ({ sym | >> ( sym << init-form )}*)
-.mets \ \ \ \ \ \ \ \ \ \ \ \ \ \ \  >> ([ test-form << result-form *])
-.mets \ \ \ \ \ \ \ \ \ \ \ \ \ \ \  <> ( inc-form *)
-.mets \ \ \ \  << body-form *)
+.mets ({for | for*} >> ({ sym | >> ( sym << init-form )}*)
+.mets \ \ \ \ \ \ \ \ \ \ \ \ \  >> ([ test-form << result-form *])
+.mets \ \ \ \ \ \ \ \ \ \ \ \ \  <> ( inc-form *)
+.mets \ \  << body-form *)
 .syne
 .desc
 
-- 
cgit v1.2.3