From 73f6de8258839eafce35fc1db6cb7604de83df83 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 15 Feb 2024 22:41:28 -0800 Subject: doc: fixes under macroexpand-params. * txr.1: Fix typo: for -> form; add missing leading indentation in example. --- txr.1 | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/txr.1 b/txr.1 index 30893510..bcf1dbcb 100644 --- a/txr.1 +++ b/txr.1 @@ -43098,7 +43098,7 @@ returning an expanded version of the form. The .meta proto-form -is a compound for which has a shape very similar to a lambda +is a compound form which has a shape very similar to a lambda expression, and may be a lambda expression. The first element of @@ -43132,22 +43132,22 @@ specifies the top-level environment. .TP* Examples: .verb -;; No expansion: argument is returned -(macroexpand-params '(foo (arg) body)) -> (foo (arg) body) - -;; Expand :key macro -(macroexpand-params '(bar (:key a b c -- d (e 1234 f-p)) body)) ---> (bar (a b c . #:g0014) - (let (d e f-p) - (let ((#:g0015 (memp :d #:g0014))) - (when #:g0015 - (set d (cadr #:g0015)))) - (let ((#:g0015 (memp :e #:g0014))) - (cond - (#:g0015 (set e (cadr #:g0015)) - (set f-p t)) - (t (set e 1234)))) - body)) + ;; No expansion: argument is returned + (macroexpand-params '(foo (arg) body)) -> (foo (arg) body) + + ;; Expand :key macro + (macroexpand-params '(bar (:key a b c -- d (e 1234 f-p)) body)) + --> (bar (a b c . #:g0014) + (let (d e f-p) + (let ((#:g0015 (memp :d #:g0014))) + (when #:g0015 + (set d (cadr #:g0015)))) + (let ((#:g0015 (memp :e #:g0014))) + (cond + (#:g0015 (set e (cadr #:g0015)) + (set f-p t)) + (t (set e 1234)))) + body)) .brev .SS* Mutation of Syntactic Places -- cgit v1.2.3