From 3a21909c1dadf6cf5672d0df8ded5498016c3e0b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 12 Jan 2017 00:48:43 -0800
Subject: doc: shorten param macro memoization example.

* txr.1: Replace silly loop with idiomatic code.
---
 txr.1 | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/txr.1 b/txr.1
index ade07359..6d4df4b2 100644
--- a/txr.1
+++ b/txr.1
@@ -28646,12 +28646,7 @@ The function is then memoized.
         (sethash %memo% sym (hash :equal-based))))
 
   (define-param-expander :memo (param body)
-    (let* ((piter param)
-           ;; memoize over required args
-           (memo-parm (build
-                        (whilet ((p (pop piter))
-                                 (x (and p (neq p :))))
-                          (add p))))
+    (let* ((memo-parm [param 0..(posq : param)])
            (hash (gensym))
            (key (gensym)))
       ^(,param (let  ((,hash (ensure-memo ',hash))
-- 
cgit v1.2.3