[Chicken-janitors] #445: define-record doesn't respect scope rules

[Chicken Trac]

#445: define-record doesn't respect scope rules
---------------------+------------------------------------------------------
 Reporter:  mario    |       Owner:       
     Type:  defect   |      Status:  new  
 Priority:  major    |   Milestone:  4.7.0
Component:  unknown  |     Version:  4.6.x
 Keywords:           |  
---------------------+------------------------------------------------------
 It seems that somehow record definitions don't respect scope rules.
 Here's a simple example:

 {{{
 $ csi -n

 CHICKEN
 (c)2008-2010 The Chicken Team
 (c)2000-2007 Felix L. Winkelmann
 Version 4.6.3
 linux-unix-gnu-x86 [ manyargs dload ptables ]
 compiled 2010-11-12 on mario (Linux)

 #;1> (let () (define-record foo bar))
 #;2> (make-foo 1)
 #<foo>
 }}}

 I expected an unbound variable error when calling {{{make-foo}}} out of
 the {{{let}}} body.

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/445>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.