(module
 m1
 *
 (import chicken scheme)

 (define-record foo a)

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

(module
 m2
 ()
 (import chicken scheme)
 ;;(import m1)

 (define-record foo a))

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

;; uncommenting the import gives

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

test