[Chicken-janitors] #1635: Include multiple times in a row 'interrupts' definitions

[Chicken Trac]

#1635: Include multiple times in a row 'interrupts' definitions
---------------------+--------------------------------
 Reporter:  dieggsy  |                 Owner:
     Type:  defect   |                Status:  new
 Priority:  minor    |             Milestone:  someday
Component:  unknown  |               Version:  5.1.0
 Keywords:           |  Estimated difficulty:
---------------------+--------------------------------
 Given file `include.scm`:
 {{{#!scheme
 (define (foo)
   (print that))
 }}}
 and a file "include2.scm"  with arbitrary contents (including an empty
 file), the following code works (interpreted and compiled):
 {{{#!scheme
 #!/usr/bin/csi -ss
 (define (main #!optional args)
   (include "include.scm")
   (define that "hey")
   (foo))

 (main)
 }}}
 whereas this does not (interpreted or compiled):
 {{{#!scheme
 #!/usr/bin/csi -s
 (define (main #!optional args)
   (include "include.scm")
   (include "include2.scm")
   (define that "hey")
   (foo))

 (main)
 }}}

 The latter throws an error about `that` being unbound.

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