Bindings from the current environment leak into scheme-report-environment

[pdh]

The "numbers" egg breaks (scheme-report-environment).

This is what it looks like:

$ csi
Version 4.7.0
openbsd-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
...
#;1> (eval '(- 3 1) (scheme-report-environment 5))
2
#;2> ((eval '- (scheme-report-environment 5)) 4 2)
2
#;3> (use numbers)
...
#;4> (eval '(- 3 1) (scheme-report-environment 5))

Error: unbound variable: numbers#-

Call history:

<syntax> (eval (quote (- 3 1)) (scheme-report-environment 5))
<syntax> (quote (- 3 1))
<syntax> (##core#quote (- 3 1))
<syntax> (scheme-report-environment 5)
<eval> (eval (quote (- 3 1)) (scheme-report-environment 5))
<eval> (scheme-report-environment 5)
<syntax> (- 3 1)
<eval> (- 3 1) <--

#;4> ((eval '- (scheme-report-environment 5)) 4 2)

Error: unbound variable: numbers#-

Call history:

<syntax> ((eval (quote -) (scheme-report-environment 5)) 4 2)
<syntax> (eval (quote -) (scheme-report-environment 5))
<syntax> (quote -)
<syntax> (##core#quote -)
<syntax> (scheme-report-environment 5)
<eval> ((eval (quote -) (scheme-report-environment 5)) 4 2)
<eval> (eval (quote -) (scheme-report-environment 5))
<eval> (scheme-report-environment 5) <--

#;4>

Observed in the "numbers" egg Version 2.6. (That is, the version
that I installed today.)
r

[sjamaan]

The bug is in Chicken, not numbers:

(module foo (+) (import (except scheme +)) (define (+ . _) 'plus))
(import foo)
(eval '(+ 1 2) (scheme-report-environment 5))

I'll look into it.

[felix winkelmann]

I think this may be an environment-related problem. Since I've changed this now, I'll take a look myself.