[Chicken-janitors] #909: strange behaviour with define-record and modules

[Chicken Trac]

#909: strange behaviour with define-record and modules
----------------------------+-----------------------------------------------
 Reporter:  megane          |       Owner:       
     Type:  defect          |      Status:  new  
 Priority:  major           |   Milestone:  4.8.0
Component:  core libraries  |     Version:  4.8.x
 Keywords:  modules         |  
----------------------------+-----------------------------------------------
 Might not be define-record specific.

 {{{
 (module
  m1
  (make-foo)
  (import chicken scheme)

  (define-record foo a)

  (let [(make* make-foo)]
    (set! make-foo
          (lambda ()
            (make* 1)))))

 (module
  m2
  ()
  (import chicken scheme)
  (import m1) ; <- remove this and everything works

  (define-record foo a))

 (import m1)
 (print (make-foo))

 ;; Error: bad argument count - received 0 but expected 1: #<procedure
 (make-foo a)>
 }}}

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