|
From: | Ludovic Courtès |
Subject: | Re: syntax-locally-bound-identifiers, local-eval |
Date: | Sun, 22 Jan 2012 01:28:19 +0100 |
User-agent: | Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.90 (gnu/linux) |
Andy Wingo <address@hidden> skribis: > (define-syntax lexicals > (lambda (x) > (syntax-case x () > ((lexicals) #'(lexicals lexicals)) > ((lexicals scope) > (with-syntax (((id ...) > (filter (lambda (x) > (eq? (syntax-local-binding x) > 'lexical)) > (syntax-locally-bound-identifiers > #'scope)))) > #'(list (cons 'id id) ...)))))) > > (let* ((x 10) (x 20)) (lexicals)) > => ((x . 10) (x . 20)) Ooooh, I’m starting to find it fun! :-) Ludo’.
[Prev in Thread] | Current Thread | [Next in Thread] |