id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
909	strange behaviour with define-record and modules	megane		"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)>
}}}"	defect	closed	major	4.9.0	core libraries	4.8.x	worksforme	modules