Real at-rate function and init values in reactive context

[gacela.git] / gacela.scm

diff --git a/gacela.scm b/gacela.scm
index ea649e2e7c19ba13ee56300a8553257f298b255c..d0484bf60551fae88d7e8f826714b47ac999b564 100644 (file)
--- a/gacela.scm
+++ b/gacela.scm
@@ -16,3 +16,21 @@
 
 
 (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 react)
+       (gacela scene)
+       (gacela window)))
+
+    (for-each (let ((i (module-public-interface (current-module))))
+               (lambda (m)
+                 (module-use! i (resolve-interface m))))
+             %public-modules)))