[Chicken-users] Cannot export record methods in module

[Werner Schmierdorfer]

Hi!

I try the following in chicken-4.8.0.1:


        (module rectest (make-foo foo-a foo-b)
                        (import chicken)
                        (define-record foo a b))


…and csi prints the following output:

        #;1> (module rectest (make-foo foo-a foo-b)
                        (import chicken)
                        (define-record foo a b))

        Warning: reference to possibly unbound identifier `foo' in:
        Warning:    foo?

        Warning: reference to possibly unbound identifier `quote' in:
        Warning:    foo?

        Error: module unresolved: rectest

                Call history:

                <syntax>          (define84 foo-b-set! (##core#lambda (x val) 
(##core#check (##sys#check-structure x (##core#quote foo...
                <syntax>          (##core#set! foo-b-set! (##core#lambda (x 
val) (##core#check (##sys#check-structure x (##core#quote foo...
                <syntax>          (##core#lambda (x val) (##core#check 
(##sys#check-structure x (##core#quote foo))) (##sys#block-set!......
                <syntax>          [foo-b-set!] (##core#begin (##core#check 
(##sys#check-structure x (##core#quote foo))) (##sys#block-set! x 2 val)...
                <syntax>          [foo-b-set!] (##core#check 
(##sys#check-structure x (##core#quote foo)))
                <syntax>          [foo-b-set!] (##sys#check-structure x 
(##core#quote foo))
                <syntax>          [foo-b-set!] (##core#quote foo)
                <syntax>          [foo-b-set!] (##sys#block-set! x 2 val)
                <syntax>          (define84 foo-b (##core#lambda (x) 
(##core#check (##sys#check-structure x (##core#quote foo))) (##sy......
                <syntax>          (##core#set! foo-b (##core#lambda (x) 
(##core#check (##sys#check-structure x (##core#quote foo))) (#......
                <syntax>          (##core#lambda (x) (##core#check 
(##sys#check-structure x (##core#quote foo))) (##sys#block-ref x 2)...
                <syntax>          [foo-b] (##core#begin (##core#check 
(##sys#check-structure x (##core#quote foo))) (##sys#block-ref x 2))
                <syntax>          [foo-b] (##core#check (##sys#check-structure 
x (##core#quote foo)))
                <syntax>          [foo-b] (##sys#check-structure x 
(##core#quote foo))
                <syntax>          [foo-b] (##core#quote foo)
                <syntax>          [foo-b] (##sys#block-ref x 2) <--


Is it possible (and if yes - how?) to export functions created by define-record?


Greetings, Werner