Re: [Chicken-janitors] #1131: Kill ##sys#alias-global-hook with fire

[Chicken Trac]

#1131: Kill ##sys#alias-global-hook with fire
---------------------------------+-------------------
            Reporter:  sjamaan   |      Owner:
                Type:  defect    |     Status:  new
            Priority:  critical  |  Milestone:  5.1
           Component:  unknown   |    Version:  4.9.x
          Resolution:            |   Keywords:
Estimated difficulty:  insane    |
---------------------------------+-------------------

Comment (by sjamaan):

 Another catch, from #1441:

 {{{
 (module undef (undefined)
   (import scheme)
   (define undefined 1))

 (module expando (do-it)
   (import scheme)
   (define-syntax do-it
     (syntax-rules ()
       ((_)
        (let-syntax ((final
                      (syntax-rules ()
                        ((_ ?x) ?x))))
          (final undefined))))))

 (import undef expando)
 ;; Should fail, not print 1, because the let-syntax expansion should
 rename introduced
 ;; identifiers from its SE (but input should be looked up here)
 (print (do-it))
 }}}

--
Ticket URL: <https://bugs.call-cc.org/ticket/1131#comment:8>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.