diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-02-15 22:41:28 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-02-15 22:41:28 -0800 |
commit | 071fe6c2533b85d5d917e3e9baea654c2671eb1a (patch) | |
tree | f928058798e2644323854e09de410d7a82be59db | |
parent | 0f77313cafafd195c4f4572c578d58612c3c3f36 (diff) | |
download | txr-071fe6c2533b85d5d917e3e9baea654c2671eb1a.tar.gz txr-071fe6c2533b85d5d917e3e9baea654c2671eb1a.tar.bz2 txr-071fe6c2533b85d5d917e3e9baea654c2671eb1a.zip |
doc: fixes under macroexpand-params.
* txr.1: Fix typo: for -> form; add missing leading
indentation in example.
-rw-r--r-- | txr.1 | 34 |
1 files changed, 17 insertions, 17 deletions
@@ -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 |