doc: shorten param macro memoization example.

* txr.1: Replace silly loop with idiomatic code.

1 files changed, 1 insertions, 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))