,m does not search the namespace correctly

[ckeen]

#;3> (module foo () (import chicken scheme) (define (bar l) 'a))
; loading /home/ckeen/chickens/4.6.7/lib/chicken/6/chicken.import.so ...
; loading /home/ckeen/chickens/4.6.7/lib/chicken/6/scheme.import.so ...
#;4> ,m foo
; switching current module to `foo'
#;foo:4> (bar (car '(1 2 3))
)

Error: unbound variable: foo#car

Call history:

<syntax> (bar (car (quote (1 2 3))))
<syntax> (car (quote (1 2 3)))
<syntax> (quote (1 2 3))
<syntax> (##core#quote (1 2 3))
<eval> (bar (car (quote (1 2 3))))
<eval> (car (quote (1 2 3))) <--

[ckeen]

Fixed with commit de3731bd8b0fef528a1d2d0ebfb6af2e65dfa71e in experimental.

Thanks!

[felix]

Milestone 4.7.0 deleted

[felix]

Milestone 4.8.0 deleted