X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela.scm;h=2ed1e6a5c01f27e7e353d31c0e74ee7457904b55;hp=ea649e2e7c19ba13ee56300a8553257f298b255c;hb=HEAD;hpb=9f4be9277ea160fbed4e87db27d3a7a80e8bfbe5

diff --git a/gacela.scm b/gacela.scm
index ea649e2..2ed1e6a 100644
--- a/gacela.scm
+++ b/gacela.scm
@@ -16,3 +16,20 @@
 
 
 (define-module (gacela))
+
+;;; Based on Sly code. Thank you so much!!
+
+(eval-when (eval load compile)
+  (begin
+    (define %public-modules
+      '((gacela event)
+	(gacela image)
+	(gacela game)
+	(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)))