[Chicken-janitors] #701: require-extension has a hygiene problem

[Chicken Trac]

#701: require-extension has a hygiene problem
----------------------+-----------------------------------------------------
 Reporter:  alaric    |       Owner:       
     Type:  defect    |      Status:  new  
 Priority:  major     |   Milestone:  4.8.0
Component:  expander  |     Version:  4.7.x
 Keywords:            |  
----------------------+-----------------------------------------------------
 It appears that require-extension doesn't work if you've locally rebound
 QUOTE:

 {{{
 address@hidden:~/personal/tmp$ cat test.scm
 (let ((quote 1))
      (require-extension aes))
 address@hidden:~/personal/tmp$ csi -script test.scm

 Error: unbound variable: aes

         Call history:

         <syntax>          (let ((quote 1)) (require-extension aes))
         <syntax>          (##core#let ((quote 1)) (require-extension aes))
         <syntax>          (##core#begin (##core#require-extension (aes)
 #t))
         <syntax>          (##core#require-extension (aes) #t)
         <syntax>          (##core#begin (##core#begin (##core#begin
 (##sys#require (quote aes))) (import aes)) (##core#undefin......
         <syntax>          (##core#begin (##core#begin (##sys#require
 (quote aes))) (import aes))
         <syntax>          (##core#begin (##sys#require (quote aes)))
         <syntax>          (##sys#require (quote aes))
         <syntax>          (quote aes)
         <syntax>          (import aes)
         <syntax>          (import scheme chicken foreign extras)
         <syntax>          (##core#undefined)
         <syntax>          (##core#undefined)
         <syntax>          (##core#undefined)
         <eval>    (##sys#require (quote aes))
         <eval>    (quote aes)   <--
 address@hidden:~/personal/tmp$ csc test.scm
 address@hidden:~/personal/tmp$ ./test

 Error: unbound variable: aes

         Call history:

         quote0          <--
 }}}

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/701>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.