(declare (unit bar) (emit-import-library bar)) (module bar (bar set-six! s-bar! s-set-six!) (import scheme chicken) (: bar (fixnum --> fixnum)) (define bar #f) (: s-bar! ((procedure (fixnum) fixnum) -> undefined)) (define (s-bar! proc) (set! bar proc)) (: set-six! (fixnum -> undefined)) (define set-six! #f) (define (s-set-six! proc) (set! set-six! proc)) )