Re: [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:  expander  |    Version:  5.1.0
          Resolution:            |   Keywords:
Estimated difficulty:  hard      |
---------------------------------+---------------------
Description changed by sjamaan:

Old description:

> 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.

New description:

 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 -s
 (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#comment:3>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.