From: Alan Mackenzie <acm@muc.de>
To: Drew Adams <drew.adams@oracle.com>
Cc: emacs-devel@gnu.org
Subject: Re: Macro expansion: Why doesn't the invoked macro see (let (variables))from the invoking one?
Date: Wed, 8 Feb 2012 19:28:00 +0000 [thread overview]
Message-ID: <20120208192800.GA31761@acm.acm> (raw)
In-Reply-To: <50AF0C80D632450597698E2B44C378AA@us.oracle.com>
Hello, Drew!
On Wed, Feb 08, 2012 at 09:46:45AM -0800, Drew Adams wrote:
> > (defmacro BAR ()
> > (message (if (boundp 'asdf) "asdf" "no asdf"))
> > '(message "bar"))
> > (defmacro FOO () (let (asdf) `(BAR)))
> > One macro FOO binds a let variable, then invokes another
> > macro BAR. BAR doesn't see this let variable. Why not?
> That `let' binding is evaluated only when FOO is expanded.
This is what I want.
> It is not part of the resulting expansion (which is then evaluated).
> > Is there anything I can do about this?
> 1. Don't use side effects in the macro definition.
I need side effects during macro expansion (see below).
> 2. You might be looking for something like this (dunno):
> (defmacro FOO () `(let (asdf) ,(BAR)))
> When `(FOO)' is expanded, the expansion includes a `let' binding.
> This is the result of `(macroexpand '(FOO))':
> (let (asdf) "bar")
> Not sure what you're really trying to do, though.
OK, here it is in grisly detail. I want to amend define-minor-mode so
that the position of calling the mode hooks can be specified by d-m-m's
invoker. To do this, the invoker should insert the macro
(run-hooks-here)
at the appropriate place. During its expansion, run-hooks-here needs to
set a flag for define-minor-mode meaning "hook expansion already done".
Should this flag not get set, d-m-m inserts the hook calls in the default
place.
What I was trying to do looks like this:
(defmacro run-hooks-here ()
(setq hooks-called t) <================= flag variable
`(run-hooks ',hook (if ,mode ',hook-on ',hook-off)))
(defmacro define-minor-mode (....)
....
(let (... hooks-run)
....
,@body <================= expand invoker's forms
<====== There may be (run-hooks-here) here.
,@(unless hooks-run `((run-hooks-here))) <========= test flag
Should run-hooks-here appear in ,@body, it should inhibit the later
expansion of r-h-h.
########################################################################
So, we've got a dynamically scoped language. run-hooks-here is invoked
from define-minor-mode. A variable let-bound in the latter should be
dynamically available in the former. It isn't.
What am I missing here?
--
Alan Mackenzie (Nuremberg, Germany).
next prev parent reply other threads:[~2012-02-08 19:28 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-02-08 17:26 Macro expansion: Why doesn't the invoked macro see (let (variables)) from the invoking one? Alan Mackenzie
2012-02-08 17:46 ` Macro expansion: Why doesn't the invoked macro see (let (variables))from " Drew Adams
2012-02-08 19:28 ` Alan Mackenzie [this message]
2012-02-08 19:52 ` Stefan Monnier
2012-02-08 20:09 ` Alan Mackenzie
2012-02-10 5:23 ` PJ Weisberg
2012-02-10 16:58 ` Alan Mackenzie
2012-02-08 20:16 ` Andreas Schwab
2012-02-08 18:05 ` Macro expansion: Why doesn't the invoked macro see (let (variables)) from " Tassilo Horn
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20120208192800.GA31761@acm.acm \
--to=acm@muc.de \
--cc=drew.adams@oracle.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).