From: Duncan Mak <duncanmak@gmail.com>
To: kawa mailing list <kawa@sourceware.org>
Subject: How to set procedure name in macros
Date: Sun, 01 Jan 2017 23:00:00 -0000 [thread overview]
Message-ID: <CABgWrqrBnhkHXSjj8y6dAK1iVMS42Fnzc0tmWbBckuQkQtbXGA@mail.gmail.com> (raw)
Hello all,
Happy new year!
In my DEFINE-FOO macro and I noticed that I can't control the name of
the lambda in the syntax expansion.
Here's a test case -
(define-syntax define-a
(lambda (stx)
(syntax-case stx ()
((_ name) #`(define name (lambda () #f))))))
(define-syntax define-bar
(lambda (stx)
(syntax-case stx ()
((_ name) #`(define name (lambda () name: 'bar #f))))))
(define-syntax define-c
(lambda (stx)
(syntax-case stx ()
((_ name) #`(define name (letrec ((foo (lambda () name: name
#f))) foo))))))
(define-syntax define-d
(lambda (stx)
(syntax-case stx ()
((_ name) #`(define name (letrec ((foo (lambda () #f)))
(set-procedure-property! foo 'name name) foo))))))
(define-a a)
(format #t "Should say a: ~A~%" (procedure-property a 'name))
(define-bar b)
(format #t "Should say bar: ~A~%" (procedure-property b 'name))
(define-c c)
(format #t "Should say c: ~A~%" (procedure-property c 'name))
(define-d d)
(format #t "Should say d: ~A~%" (procedure-property d 'name))
The output looks like this:
Should say a: a
Should say bar: b
Should say c: foo
Should say d: foo
I'm particularly interested in the C or D cases.
Thanks!
--
Duncan.
next reply other threads:[~2017-01-01 23:00 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-01-01 23:00 Duncan Mak [this message]
2017-01-02 0:37 ` Per Bothner
2017-01-02 2:51 ` Duncan Mak
2017-01-02 2:54 ` Duncan Mak
2017-01-02 14:17 ` Per Bothner
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CABgWrqrBnhkHXSjj8y6dAK1iVMS42Fnzc0tmWbBckuQkQtbXGA@mail.gmail.com \
--to=duncanmak@gmail.com \
--cc=kawa@sourceware.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.
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).