1(module corectl ()2 (import scheme (chicken base) (chicken condition)3 (chicken module) (chicken foreign)4 (srfi 1) (srfi 4))56 (export num-leds make-led-ctl close-led-ctl7 call-with-led-ctl led-ctl-write)89 (include "lib/util.scm")10 (include "lib/ffi.scm")11 (include "lib/libusb.scm")12 (include "lib/packet.scm")13 (include "lib/corectl.scm"))