[Chicken-janitors] #1490: csi: Modules leak identifiers

[Chicken Trac]

#1490: csi: Modules leak identifiers
---------------------+--------------------------------
 Reporter:  megane   |                 Owner:
     Type:  defect   |                Status:  new
 Priority:  minor    |             Milestone:  someday
Component:  unknown  |               Version:  5.0
 Keywords:           |  Estimated difficulty:  medium
---------------------+--------------------------------
 {{{
 (module foo (bar)
         (import scheme (chicken base))
         (define (bar x) (+ x 1)))
 (print (foo#bar 1))

 ;; $ csi -qbn modu.scm
 ;; 2
 }}}

 I think (##sys#current-module) isn't cleared after walking (evaling?) the
 module. I get this with debug info:
 {{{
 (ALIAS) global alias `bar' in module `foo'
 }}}

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