Re: syntax-locally-bound-identifiers, local-eval

[Ludovic Courtès]

Andy Wingo <wi...@pobox.com> 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’.