+
+;;; Based on Sly code. Thank you so much!!
+
+(eval-when (eval load compile)
+ (begin
+ (define %public-modules
+ '((gacela image)
+ (gacela math)
+ (gacela scene)
+ (gacela window)))
+
+ (for-each (let ((i (module-public-interface (current-module))))
+ (lambda (m)
+ (module-use! i (resolve-interface m))))
+ %public-modules)))